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FOREWORD 


This  report  serves  as  documentation  of  the  Defense  Medical  Infor¬ 
mation  System  (DMIS)  relative  weighted  product  (Rw  )  computation  and  as¬ 
signment  process.  Included  are  an  overview  of  che  process,  detailea 
step-by-step  guidelines  for  running  the  computer  programs,  and  discus¬ 
sion  of  quality  control  ( QC )  and  information  reports  used  to  validate 
the  data  and  summarize  the  results.  This  document  was  completed  under 
contract  number  MDA903-88-C-0147 .  Questions  or  comments  should  be 
directed  to  LTC  Stuart  8aker.  OASD(HA)  Resource  Analysis  and  Management 
Systems.  (703)  756-1918. 
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1.0  GENERAL  INFORMATION 

T’vs  document  doscices  the  process  that  assigns  Relative  Wetted 
precu'ts  iR'w'Fs  as  a  parr  p*  the  CM'S  production  cycle.  The  docure^: 
desc'oes  the  inc..L:.  p recessing  software,  and  computer  system  cor.s;der- 
at'prs  re;essary  tc  perform  RW?  assignment  to  Biometrics  inpatient  d:; 
c-arge  recc'd  data,  "e’-ms  and  ac-previations  used  within  this  Occur, 
are  defined  below.  Chapter  2.0  provides  a  process  overview  and  cnactc 
3 . o  describes  t r e  prccess  in  a e t a ; i  . 

Diagnosis  Related  Group  (DRG)  Weight  ••  an  index  number'  that  refects 
the  '"e'at’.e  •'  e  a :  .r ;  cs  ,.~pt ;  C'-  associated  with  each  DRG.  -  v  9 1  DRG 
wei-;rtj  we'  e  a  published  in  the  Federal 

Regi  steri  ,  .vt  md  : ;  •  e  d  a  s  pud  1  sred  in  Development  and  Impact  of 
Implementing  FY91  (Version  8)  CHAMPUS  DRG  Weights  and  Outlier  Criteria  . 
Grouper  •-  a  compute'1  software  program  that  is  used  to  assign 
5?Procriate  CRG's  to  fscha'-ges  using  the  following  information; 
p a t  ’ er t  ‘  s  age  a-  ;  sex .  p  r ; ;  i  p  a  1  c; agnosi  $  .  principal  procedures 
ter*crmed,  t- •  :nar;e  status .  and  (for  neonates )  birth  weight. 

Relative  Weighted  Products  (RWPs)  --  dispositions  from  Biometrics 
weighted  ty  ChamR’JS  DRG  relative  weights.  Each  disposition  from  the 
Services'  Biometrics  systems  is  assigned  a  DRG  and  weighted  by  the  apnre 
orJ  ate  Champus  weight  for  that  DRG  in  accordance  with  the  rules  for  work 
load  credit  described  in  the  fy92  Military  Health  Services  System  (MHSS) 
Diagnosis  Related  Group  (DRG)  Based  Resource  Allocation  Guidance3. 


1  Vo  1  .  55.  No.  214.  5  November.  1990.  pp.  46547  -46557. 

?  VR I -DMI S - 2 .60  WP92-5  Vector  Research.  Incorporated,  Ann  Arbor. 
Michigan.  20  May  1992 . 

3  To  be  released. 
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T'-im  Points  --  the  length  of  stay  cutoff  points  or  thresholds  that  separ¬ 
ate  parents  with  unusually  long  or  snort  1  engths -of  -  stay  (LOS)  from 
"normal"  cases  within  each  ORG.  Patients  who  exceed  tnese  cutoff  or 
points  are  classified  as  outliers  and  are  eligible  for  additional 
workload  credit.  F Y 9 1  trim  points  were  adopted  from  CHAMPUS.  as  pub¬ 
lished  in  the  Federal  Register' . 


1  Vo 1  55.  No.  214.  pp  46547-46557. 
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2.0  PROCESS  OVERVIEW 


2.1  SYSTEM  APPLICATION 

The  Standard  Inpatient  Data  Record  (SIDR)  RWP  processor  appends 
the  following  information  to  the  537  byte  Biometrics  SIDR  record,  as 
processed  by  the  DM  I S : 

•  base  RWPs: 

•  long-stay  outlying  bed  day  RWPs; 

•  outl ier  status  fl ag ; 

•  transfer  status  flag;  and 

•  a  one-character  filler. 

In  addition  to  the  RWP  and  status  flag  attachment,  the  RWP  processor  in¬ 
cludes  quality  checking  programs  to  read  in  the  output  data  and  perform 
tabulations  that  may  be  checked  against  tabulations  performed  in  the 
course  of  the  RWP  attachment  programs.  This  document  refers  to  the  most 
recent  version  of  the  SIDR  RWP  processing  system,  which  was  modified  to 
process  the  F Y 9 1  Biometrics  data  grouped  by  DRG.  The  SIDR  RWP  processor 
may  be  edited  and  applied  to  any  Biometrics  data.  This  document  pro¬ 
vides  the  information  necessary  to  perform  the  edits  and  execute  the 
programs.  All  programs  were  written  to  be  submitted  under  WYLBUR  on  the 
Ft.  Detrick  computer  system.  All  file  references  are  to  files  on  the 
Ft.  Detrick  system. 

2.2  SOFTWARE  INVENTORY 

The  SIDR  RWP  processor  consists  of  14  SAS  programs,  two  specific 
to  each  of  the  Services,  and  eight  quality  control  (QC)/information 
programs.  The  six  Service  specific  programs  are: 
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Army:  HAF . CON . VRI .TMR . SI  DR . RWPARMY . PR0G91 ; 

HAF.CON.VRI . TMR . SI  DR . RWPARMQC . PR0G91 ; 

•  Navy:  HAF.CON.VRI .TMR. S I  DR . RWPNAVY . PR0G91 : 

HAF.CON.VRI . TMR . S I  DR . RWPNAVQC . PR0G91 ; 

•  Air  Force:  HAF . CON . VRI . TMR . S I  DR . RWPUSAF . PR0G91 ;  and 

HAF.CON.VRI . TMR . S I  DR . RWPAI RQC . PR0G91 . 

The  first  program  listed  for  each  Service  is  the  RWP/status  flag  attach¬ 
ment  program.  The  second  is  a  QC  program  for  each  Service  branch  that 
performs  various  RWP  and  disposition  tabulations  to  check  the  integrity 
of  a  merge  that  occurs  in  the  course  of  the  SIDR  RWP  computation  and 
attachment.  Hardcopy  of  the  processing  code  for  Army  data  is  presented 
in  appendix  B.  Appendix  B  also  presents  the  job  control  language  (JCL) 
used  to  execute  the  Navy  and  Air  Force  data  processing.  The  SAS  code 
for  processing  the  Navy  and  Air  Force  data  is  identical  to  that  for  the 
Army.  These  programs  were  written  to  be  submitted  under  WYLBUR  on  the 
Ft.  Detrick  computer  system. 

The  eight  other  GC  /  i  nr'orma  t  i  on  programs  will  be  discussed  in  great¬ 
er  detail  in  Chapter  3.  and  hardcopy  of  these  programs  can  be  found  in 
appendix  B.  The  programs  are: 


•  HAF.CON.VRI .TMR. TRIMPTQC. PROG: 

•  HAF.CON.VRI .TMR. eEDDAYQC. PROG; 

•  HAF.CON.VRI .TMR. CROSSTAB. PROG; 
.  HAF.CON.VRI .TMR. 10SPCTQC. PROG; 

•  HAF.CON.VRI .TMR. LOSFROQC. PROG; 

•  HAF.CON.VRI .TMR. RWPDRGOC. PROG; 
.  HAF.CON.VRI .TMR. RWPMTFOC. PROG; 

•  HAF.CON.VRI .TMR. RWPSVCOC. PROG. 


and 


1 


1 
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2.3  DATA  INPUTS 

Tt'e  input  Biometrics  data  for  the  FY91  SIDR  RWP  processing  were 
contained  in  the  following  three  files: 

.  Army:  HAF . CON . VRI . MYT . ARMY . G12349 1 . S I  DR . VA : 

•  Navy:  HAF. CON. VRI. MYT. NAVY. G123491. SIDR. VA;  and 

•  Air  Force:  HAF . CON . VRI .MYT . USAF . G12349 1 . SI  DR . VA . 

These  were  flat  files  contained  on  tape  at  the  Ft.  Detrick  system.  The 
layouts  for  these  files  are  contained  in  appendix  A.  In  addition  to  the 
Biometrics  input  data,  there  is  one  other  file  required.  The  file  used 
for  the  FY 9 1  runs  was: 

•  HAF. CON. VRI . TMR . CHAMPUS . TRI MPTS . VERS8 . SDS . 

This  is  a  SAS  data  set  containing  DRG  weights,  geometric  means  of  length 
of  stay  (GLOS),  short-stay  trim  points,  and  long-stay  trim  points  for 
each  DRG.  The  weights  are  modified  ChampuS  F y 9 1  (Version  8)  DRG 
weights,  and  the  trim  points  are  the  CHAMPUS  Version  8  trim  points. 

Table  A-2  in  appendix  A  presents  the  DRG  weights  and  trim  points  as 
modified  for  direct  care  use. 

2.4  PROCESS  OUTPUTS 

There  were  three  files  created  by  the  SIDR  RWP  processor  for  FY91 
Biometrics  data,  one  for  each  Service  branch: 

.  Army:  H AF . CON . VR I . TMR . S I  DR . ARMY . CHAMPRWP . FY9 1 ; 

.  Navy:  HAF. CON. VRI .TMR. SIDR. NAVY. CHAMPRWP. FY91;  and 

.  Air  Force:  HAF . CON . VRI . TMR . SI  DR . USAF . CHAMPRWP . FY91 . 

These  files  are  duplicates  of  the  input  files  except  the  RWPs  and  status 
flags  noted  earlier  are  attached  to  each  record.  The  layouts  for  the 
additional  fields  in  the  output  files  are  contained  in  section  3.4.4  and 
table  A-3  in  appendix  A.  Additionally,  the  QC/Information  programs  men¬ 
tioned  above  produce  summary  output  reports. 
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2.5  ADDITIONAL  PROCESS  INFORMATION 

Since  changes  in  policy  may  require  changes  to  the  SIDR  RWP  proces¬ 
sor,  a  member  of  the  RCMAS  project  staff  should  be  consulted  prior  to 
attaching  RWPs.  Along  with  the  policy  changes,  there  are  a  number  of 
preliminary  analyses  which  must  be  conducted  prior  to  running  the  SIDR 
RWP  Processor: 

•  New  DRG  weights.  CHAMPUS  GLOS.  and  trim  points  must  obtained 
from  the  Federal  Register  consistent  with  the  DRG  grouper  ver¬ 
sion  employed  to  assign  DRGs  to  the  data. 

•  DRGs  requiring  exceptional  policies  must  be  identified  and 
these  policies  implemented  in  the  SAS  code.  (Exception  DRGs  in 
the  FY91  processing  were  DRGs  436.  600,  601,  603,  605,  and 
608.  ) 

•  Any  change  in  outlier  credit  policy  must  be  implemented  in  the 
SAS  code.  Currently,  short-stay  outlier  per  diem  credit  is 
200®  of  DRG  per  diem  credit  and  long-stay  outlier  per  diem 
credit  is  60®  of  DRG  per  diem  credit. 

.  Any  new  admission  source  codes  or  recoded  disposition  codes 
must  be  determined  and  added  to  the  section  of  the  source  code 
defining  transfer  status.  A  summary  procedure  should  be  run 
over  the  admission  source  codes  and  recoded  disposition  codes 
to  determine  if  they  are  correct.  They  can  be  compared  to  the 
transfer  status  flag  (DRGICAT)  and  to  the  previous  year’s  codes 
to  determine  if  any  modifications  need  to  be  made.  The  current 
codes  are  listed  in  table  A-4  appendix  A. 


Having  provided  an  overview  of  the  RWP  assignment  process,  chapter  3.0 
provides  a  step-by-step  description  of  a  process  job  run. 
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3.0  DESCRIPTION  OF  PROCESS  JOB  RUNS 

This  chapter  provides  a  step-by-step  detailed  description  of  an 
RWP  assignment  job  run.  Army  data  are  used  as  an  example,  but  Navy  and 
Air  Force  data  are  processed  in  precisely  the  same  manner.  This  chapter 
is  organized  in  the  following  manner: 

•  section  3.1  presents  the  elements  required  to  complete  the  run; 

•  section  3.2  discusses  task  sequencing; 

•  section  3.3  describes  data  validation  and  diagnostic 
procedures ; 

•  section  2.4  is  a  step-by-step  review  of  the  RWP  assignments 
run;  and 

•  section  3.5  is  a  step-by-step  review  of  the  QC/i nformati on 
programs  run. 

1A _ RUN  INVENTORY 

The  runs  involved  in  the  Army  portion  of  the  SIDR  RWP  processor 

are: 

•  HAF. CON. VRI .TMR. SIDR. RWPARMY . PR0G91  and 
■  HAF. CON. VRI . TMR . S I  DR . RWPARMQC . PR0G91 . 

As  noted  previously,  the  first  program  computes  RWPs  associated  with 
each  Army  Biometrics  record  and  attaches  these  RWPs,  as  well  as  the 
status  flags  identified  earlier,  to  each  record  and  writes  out  the  ex¬ 
panded  record  to  a  flat  file.  In  the  course  of  computing  and  attaching 
the  RWPs  to  the  Biometrics  records,  the  program  performs  tabulations 
according  to  the  values  of  selected  variables.  The  second  program  reads 
in  the  flat  file  written  by  the  first  program,  tabulates  RWPs  according 
to  the  values  of  the  same  variables  used  in  the  first  program,  and 
prints  these  tabulations  in  the  job  log.  This  job  log  can  then  be  used 
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as  an  element  to  QC  the  process  and  to  verify  that  the  RWPs  computed  in 
the  first  program  were  attached  to  the  proper  records.  The  Navy  portion 
of  the  SIDR  RWP  processor  involves  the  following  programs: 

.  HAF.C0N.VR1 .TMR.SIDR.RWPNAVY. PR0G91  and 

•  HAF.CON.VRI .TMR.SIDR.RWPNAVQC.PR0G91. 

The  Air  Force  SIDR  RWP  processor  consists  of  the  following  programs: 

.  HAF.CON.VRI .TMR. SIDR. RWPUSAF . PR0G91  and 

•  HAF.CON.VRI .TMR. SIDR. RWPAI RQC . PR0G91 . 

As  for  the  Army,  the  first  program  listed  for  the  Navy  and  Air  Force  is 
the  RWP  computation  and  attachment  program,  while  the  second  program 
performs  the  QC  tabulations. 

During  the  FY91  processing,  each  of  the  programs  listed  was  run 
twice:  a  preliminary  run  to  create  temporary  files,  which  were  the 
subject  of  diagnostic  testing,  and  a  final  run  to  create  the  permanent 
datasets.  Diagnostic  testing  was  also  performed  on  the  outputs  of  the 
final  runs.  The  job  log  from  each  final  run  is  contained  in  appendix  C. 

3.2  TASK  SEQUENCING 

The  only  requirement  in  terms  of  task  sequencing  is  that  the  OC 
tabulation  program  for  a  given  Service  be  executed  after  the  RWP  attach 
ment  program  for  the  corresponding  Service  has  been  run.  The  Services' 
runs  may  be  performed  in  any  order.  It  is  suggested,  but  not  necessary, 
that  both  programs  for  the  smallest  Service  dataset  (presently,  the 
Navy)  be  run  and  examined  prior  to  running  the  data  for  the  other  Ser¬ 
vices.  This  will  allow  for  the  quickest  evaluation  of  the  SIDR  RWP 
processor  performance. 
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3.3  DIAGNOSTIC  PROCEDURES 

There  were  a  number  of  elements  involved  in  checking  the  validity 
of  tne  data  processing.  Reviewing  the  job  logs  allowed  for  verification 
of  the  total  number  of  records  against  counts  obtained  from  DM I S  staff 
for  each  Service.  The  correctness  of  the  algorithm  was  verified  by  walk 
ing  through  the  program  logic,  manually  checking  the  first  few  records 
of  each  output  file,  and  by  selecting  records  with  various  DRG,  DRGICAT, 
and  OUTCAT  values.  Furthermore.  CMI  and  dispositions  by  MTF  were  compar 
ed  witn  previous  years'  values  in  order  to  determine  whether  systematic 
errors  were  present.  Finally,  oecause  there  was  a  merge  involved  in  the 
RWP  attachment  code,  a  SAS  program  was  executed  to  read  in  the  final  out 
put  data  set  for  each  Service,  and  perform  RWP  tabulations  categorized 
by  selected  variables: 

•  DM  I S I D ; 

•  outl i e r  status ; 

•  transfer  status; 

•  major  diagnostic  category  (MOC);  and 

•  beneficiary  category. 

These  RWP  tabulations  were  compared  with  identical  tabulations  performed 
in  the  course  of  the  RWP  attachment  program,  both  prior  to  and  after  the 
merge.  These  comparisons  revealed  that  the  merge  worked  correctly  for 
the  F Y 9 1  data. 

As  noted  previously,  the  OC  tabulation  programs  are  in  the  follow¬ 
ing  files  at  Ft.  De trick: 

.  Army:  HAF . CON . VRI . TMR . SI  DR . RWPARMQC . PR0G91 ; 

.  Navy:  HAF. CON. VRI .TMR.SIDR.RWPNAVQC. PR0G91 ;  and 

.  Air  Force:  HAF . CON . VRI . TMR . SI  DR . RWPAI ROC . PR0G91 . 
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These  are  SAS  programs  designed  for  submission  under  WYLBUR.  The  job 
logs  f^om  these  programs  contain  the  RWD  tabulations,  which  were  manu¬ 
ally  compared  to  RWP  tabulations  contained  in  the  job  logs  output  from 
the  RWP  attachment  programs. 

3.4  RWP  ATTACHMENT  RUN  DESCRIPTION 

This  section  provides  the  detailed  information  required  to  execute 
runs  of  the  RWP  attachment  code.  It  is  assumed  that  the  SIDR  RWP  proces 
sor  will  be  run  on  the  Ft.  Detrick  system.  Prior  to  running  the  RWP 
'tt:chmcrt  cede,  the  following  datasets  must  be  available: 

•  Army  Biometrics  data,  grouped  by  DRG  (flat  file): 

•  Navy  Biometrics  data,  grouped  by  DRG  (flat  file); 

.  Air  Force  8iometrics  data,  grouped  by  DRG  (flat  file);  and 

•  DRG  weights,  GtOS,  short-stay  trim  points,  and  long-stay  trim 
points  ( SAS  data  set ) . 

3.4.1  CONTROL  INPUTS 

This  section  consists  of  two  further  subsections.  Section  3. 4. 1.1 
presents  the  job  control  language  (JCL)  necessary  to  execute  the  RWP 
attachment  program  and  discusses  editing  necessary  to  submit  future 
runs.  Section  3.4. 1.2  discusses  the  minor  edits  to  the  SAS  code,  which 
should  be  performed  prior  to  future  runs. 

3. 4. 1.1  JCL  Editing 

The  Army  RWP  attachment  program  contains  the  following  JCL.  Line 
numbers  have  been  attached  to  aid  in  the  discussion,  although  they  do 
not  appear  in  the  hard  copy  source  listing  in  appendix  B.  As  configured 
below,  and  as  presented  throughout  this  chapter,  the  program  creates  per 
manent  data  sets.  It  is  suggested,  however,  that  a  preliminary  run  be 
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executed  for  each  Service,  creating  temporary  datasets  upon  which  diag¬ 
nostic  tests  may  be  performed.  This  prevents  pro! i feration  of  bad  per¬ 
manent  data  sets  and  waste  of  tape  storage. 


1. 

/  /CSRTMR 

JOB 

(RAMS) . 'VECTOR  RESEARCH' ,CLASS=F,MSGCLASS=X. 

2. 

// 

MSGLEVEL=(1.1).TIME=(20.0), NOTIFY =C SR 

3. 

/’JOBPARM  LINE S=2 5 

4  . 

/  /'  £  X  £  C 

bAbu06.WORK='100.100‘,SORT=10.REGION=4096K 

5. 

//BIOIN 

DO 

DSN=HAF.CON.VRI . MYT. ARMY. G123491 .SIDR. VA.DISP=SHR 

6. 

/  /  WT I N 

DO 

DSN=HAF . CON . VRI . TMR .CHAMPUS . TRIMPTS . VERS8 . SDS . DI SP=SHR 

7  . 

// 

8. 

//8I00UT 

DD 

DSN=HAF . CON . VRI . TMR . S I  DR . ARMY . CHAMPRWP . FY91 . 

9. 

//* 

DI SP  =  ( NEW .  DELETE). 

10. 

// 

DISP-( NEW. CATLG. DELETE) . 

11. 

// 

LABEL-(1.SL.. , £XPDT=99000 ) , 

12. 

/  /* 

LABE  L  =  ( l.SL) . 

13. 

// 

UNIT  ==T  APE  , 

14. 

// 

DCB=(LRECL=558. RECFM=FB ,BLKSIZE=23436) 

The 

following 

di  s 

cussion  will  descripe  line-by-line  changes  which  should 

be  made  in  the  JCt  in  order  to  execute  a  job.  Similar  changes  are  re¬ 
quired  for  the  Navy  and  Air  Force  SIDR  RWP  attachment  code  JCL.  Some 
lines  will  not  require  changes,  and  will  not  be  discussed  below. 

Lines  1  and  2 

The  account  initials  CSR  need  to  be  changed  to  the  account  initi¬ 
als  under  which  the  program  is  executed. 
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Line  4 

: the  job  abends  due  to  insufficient  workspace,  the  first  param¬ 
eter  in  the  W0RK=  statement  should  be  gradually  increased  until  the  job 
executes.  Increase  the  parameter  by  100  each  time  the  job  abends.  The 
second  parameter  should  not  require  adjustment.  If  the  S0RT=  or  REGION^ 
parameter  is  not  large  enough,  there  will  be  an  error  statement  in  the 
job  log  that  indicates  this.  The  error  statement  will  also  indicate  the 
level  at  which  the  parameter  should  be  set.  Note  that  finding  the  cor¬ 
rect  level  for  these  parameters  is  an  iterative  process,  and  may  require 
a  number  of  runs.  Note  that  SAS  will  greatly  underestimate  the  addition 
al  space  required  in  the  REGI0N=  statement.  If  the  job  is  abending  due 
to  the  REG  1 0N=  parameter  being  too  small,  increase  the  parameter  by  500. 
Finally,  note  that  the  parameters  in  the  code  have  been  determined  at 
after  numerous  runs  of  the  code,  and  should  be  at  the  level  necessary  to 
allow  the  job  to  execute. 

Lines  5  and  6 

The  names  of  the  files  in  the  DSN=  statement  must  be  changed  in 
order  to  reflect  the  names  of  the  new  Biometrics,  GLOS,  and  trim  point 
files. 

Line  8 

The  name  of  the  file  in  the  DSN=  statement  must  be  changed  to  re¬ 
flect  the  new  output  file. 

Line  9 

This  line  is  currently  commented  out.  In  circumstances  where  the 
source  code  is  substanti al ly  changed,  it  may  be  desired  to  make  sure 
that  the  output  data  set  is  deleted  as  soon  as  the  program  terminates. 
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If  this  is  the  case  the  line  may  be  uncommented  by  removing  the  aster¬ 
isk.  Note  that  if  this  line  is  uncommented,  line  12  should  also  be 
uncommented,  and  line  10  should  be  commented  by  adding  an  asterisk 
immediately  following  the  second  slash  mark. 

Line  10 

This  line  currently  indicates  that  the  output  data  set  should  be 
scratched  upon  abnormal  termination  of  the  program,  and  catalogued  upon 
normal  termination  of  the  program.  It  should  be  commented  out  i by  in¬ 
serting  an  asterisk  immediately  following  the  second  slash  mark)  i*  lire 
9  is  uncommented. 

Line  11 

This  line  is  currently  configured  to  create  a  permanent  tape  data 
set.  In  oraer  to  create  a  temporary  one  for  testing  purposes,  the 
EXPDT=  parameter  must  be  changed  to  the  desired  expiration  date.  Tne 
first  two  characters  in  this  statement  indicate  the  year  the  data  set 
will  be  scratched,  the  following  three  characters  indicate  the  day  of 
the  year  on  which  the  data  set  will  be  scratched.  If  line  9  is  uncom¬ 
mented.  this  line  should  be  commented  out.  and  line  12  uncommented. 

Line  12 

This  line  is  currently  commented  out.  If  line  9  is  uncommented, 
this  line  should  also  be  uncommented,  and  line  11  should  be  commented 


out . 
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Line  13 

data  sets  can  be  put  onto  cartridges  by  changing  TAPE  to  CAP" 
in  line  13.  Cartridges  hold  mere  data  and  allow  programs  accessing  :-e 
data  to  rim  *-‘aster  than  when  the  data  is  contained  on  tapes. 

Line  14 

This  1  ’  ne  should  be  charged  only  if  the  logical  record  length' 
ilRECL)  of  the  output  data  set  is  changed.  The  logical  record  length  o* 
the  output  data  set  should  be  changed  only  if  the  logical  record  ' engf 
o*  the  ’ r p u t  data  set  ;s  charged,  or  if  more  data  elements  are  to  be 
added  in  tne  course  of  the  RW°  attachment.  In  the  former  case  <  or  if 
me  S I  DR  record  format  charges.',  the  SaS  ’input  and  output  statements 
must  be  changed  as  we-’.  In  the  latter  case,  the  SAS  program  will  need 

major  revisions,  jr 3  3! ’  mjsges  should  take  place  in  the  context  cf  the 
p r c g r a m  mod ca t i :rs  .  =_«S!ZE=  parameter  should  be  a  product  o* 

lRECl-  pa r amete-  ar  '  s?"'e  '”teger. 

3 . 4 . 1 . 2  SAS  Editing 

There  are  four  sections  of  the  SAS  code  that  may  need  editing  for 
future  runs  of  the  RWP  attachment  program.  The  first  concerns  the  file 
layout  for  the  B;OT.etrics  data  input  data  set.  as  well  as  the  titles  on 
the  Sas  tabulation  reports.  Tt,e  second  concerns  the  DRG  weight.  GlOS, 
and  trim  point  input  data  set  variable  names.  The  third  concerns  the 
RWP  computations  for  exceptional  DRGs .  The  fourth  concerns  the  file  lay¬ 
out  for  the  output  data  set.  Each  section  of  SAS  code  that  may  require 
ea  ting  is  preceded  by  a  box  of  text  that  both  marks  its  position  and 
gives  direction  as  to  how  the  subsequent  SAS  code  may  require  editing. 
Each  of  these  sections  is  discussed  below. 
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Parameter  and  Variable  Update  Section:  No.  1 

7ne  first  section  of  SAS  code  that  may  require  updating  contains 
the  input  statements  for  the  3iometrics  data.  If  the  file  layouts  for 
the  Biometrics  data  change,  the  SAS  INPUT  statement  must  be  changed  to 
correspond  to  the  new  layouts.  In  addition,  the  TITLE  statement  must  be 
Changed  to  correspond  to  the  correct  fiscal  year  and  quarter  of  the 
Biometrics  data. 


PARAMETER  AND  VARIABLE  UPC/ 


VERIFY  THAI 
IF  NOT.  i 


B I  O'E 


:s 


n ; 


INPUT 
T  S T AT 


IE  SECTION:  NO.  1  — 
_E  LAYOUT  matches  THAT  BELOW. 
ENTS  TO  MATCH  THE  BIOMETRICS 


FIll  L AY 0 U 
CHANGE  TITLE 


ST  AT  EMENT  T0  REFLECT  CURRENT  YEAR  AND  QUARTER. 


TITLE  ' F Y 9 1  QUARTER  4  BIOMETRICS  RWP  ATTACHMENT  PROGRAM'; 
DATA  TEMPI; 

INFIlE  BIOIN; 


INPUT 

@1 

PRN 

SCHAR7.  / 

@8 

MTFCODE 

S  C  H  A  R  6  .  / 

(i>14 

STRING1 

$  C  H  A  R 1 3  . 

@27 

D  X 1 

S  L  H  A  R  8  .  / 

@35 

STRING? 

SCHAR100. 

@135 

STRING3 

SCHAR38. 

@173 

ADMSRC 

$CHAR1 .  / 

@174 

DISPOATE 

SCHAR6.  / 

@180 

STRING4 

$CHAR100 . 

@280 

STRINGS 

tCHARICO. 

@380 

STRING6 

tCHAP.12. 

@392 

DMISID 

SCHAR4  . 

@396 

STRING7 

SCHAR6. 

@402 

DMISBENF 

SCHAR3.  / 

@405 

STRING-8 

SCHAR6. 

@411 

DMISDAYS 

4.  / 

@415 

STRING9 

t  C  H  A  R 1 3  . 

@428 

RECDISP 

$  C  H  A  R  2  .  / 

@502 

DRG 

3. 

@505 

MDC 

SCHAR2  . 

@507 

STRING10 

SCHAR31  . 

PATIENT  REGISTER  NUMBER  * 
REPORTING  MTF  -/ 

DIAGNOSIS  in 

SOURCE  OF  ADMISSION  -/ 
DATE  OF  DISPOSITION  *7 

DMIS  BENEFICIARY  CATEGORY 
REC  TOT  BED/BASS  DAYS  ’/ 
RECODED  DISP  STATUS  ’/ 
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Parameter  and  Variable  Update  Section:  No.  2 

're  second  set  of  parameter  and  variable  updates  involve  the  DRG 
weights.  GLOS.  and  trim  point  variables,  as  well  as  the  per  diem  credit 
given  to  outliers.  For  FY91  Biometrics  processing,  the  variables  in  the 
SAS  file  containing  the  DRG  weights.  GLOS.  and  trim  points  were  named  as 

f 0 1 1 OWS . 

•  DRG  weights:  D0DV8WT ; 

•  GLOS:  CH_GL0S ; 

•  Long-stay  outlier  trim  point:  CHHICUTA;  and 

•  Short-stay  outlier  trim  point:  CHLOCUT. 

I*  ? ny  of  these  variables  have  different  names  in  future  runs  of  the 
S I  DR  RWP  processor,  the  code  must  be  changed  to  reflect  that  fact.  If 
the  name  of  the  SAS  data  set  member  containing  the  DRG  weights  and  trim 
point  changes  is  not  FY90.  then  the  SAS  code  must  be  changed  to  reflect 
that  fact.  Finally,  if  the  outlier  per  diem  crediting  policy  changes, 
then  the  SAS  code  must  be  updated  to  reflect  the  change. 


PARAMETE D  ANO  VARIABLE  UPDATE  SECTION:  NO.  2  *******«-—»/ 


/-  CHANGE  ’ D0DV8WT ’  TO  NAME  OF  VARIABLE  CONTAINING  DRG  WEIGHTS  ’/ 
/'  IN  THE  FILE  CONTAINING  THE  APPROPRIATE  DRG  WEIGHTS.  GLOS.  AND*/ 
/*  TRIM  POINTS.  */ 
/*  VERIFY  THAT  THE  LIBRARY  REFERENCE  (FY90)  IS  CORRECT  FOR  */ 
/*  THE  CURRENT  FILE  OF  DRG  WEIGHTS.  GLOS.  AND  TRIM  POINTS.  */ 
/'  VERIFY  THAT  CURRENT  OUTLIER  CREDITING  POLICY  IS  CORRECTLY  */ 
/*  IMPLEMENTED:  2.0  MEANS  200  PERCENT  PER  DIEM  (SHORT  STAYS)  */ 
/’  0.6  MEANS  60  PERCENT  PER  DIEM  (LONG  STAYS)  */ 


DATA  WE  I GHTS  ;  SET  WTIN . FY90 ( KEEP=DRG  D0DV8WT  CHLOCUT  CH_GL0S  CHHICUTA); 
SS_FAC=2 . 0 ; 

LS_FAC=0 . 6 ; 

RENAME  D0DV8WT  =  CHMPWT; 

P0_WT=R0UND( ( 00DV8WT /CH_GL0S ) , .0001 ) ; 

SS_WT=R0UND( ( PD_WT*SS_FAC ) . .0001) ; 

LS_WT=R0UND( ( PD_WT*LS_FAC ) . .0001) . 
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Parameter  and  Variable  Update  Sect-on:  No.  3 

Th  i  s  section  required  editing  in  the  F Y 9 1  processing,  in  order  to 
implement  the  change  in  the  F Y9 1  CHAMPUS  0R6  coding  that  caused  DRG  385 
(Neonates,  died  nr  transferred)  to  be  no  longer  valid,  and  to  map  those 
dispositions  that  formerly  would  have  been  in  this  DRG  to  the  following 


DRGs : 


600  ( N  p  n  n  d  t  s 

601  (Neonate, 
603  (Neonate, 
605  (Neonate. 
608  (Neonate, 


died  w/in  one  day  of  birth); 
transferred  <  5  days  old); 
birthwt  <  750g,  died); 
birthwt  750-999g,  died);  and 
birthwt  1000-1499g.  died). 


These  DRGs,  in  addition  to  DRG  456  (8urns,  transferred  to  another  acute 
care  facility),  get  full  DRG  credit  for  any  length  of  stay,  up  to  the 
long-stay  outlier  trim  point,  long-stay  outliers  receive  60  percent  per 
diem  credit.  In  other  words,  there  are  no  short-stay  outliers  for  these 
DRGs.  If  there  are  any  additions  or  deletions  to  the  DRGs  which  are 
handled  in  this  way,  or  the  specific  policy  for  assigning  RWP  credit  to 
these  DRGs  is  modified,  the  SAS  code  should  be  edited  to  reflect  the 
changes . 


/’**»**  PARAMETER  AND  VARIABLE  UPDATE  SECTION;  NO.  3  ***♦.**»**»**/ 
/*  DETERMINE  WHETHER  THE  DRGS  LISTED  BELOW,  OR  ANY  OTHER  DRGS  */ 
/*  SHOULD  BE  HANDLED  IN  AN  EXCEPTIONAL  MANNER,  SPECIFICALLY,  */ 
/’  IN  THE  MANNER  OUTLINED  IN  THE  BOX  IMMEDIATELY  BELOW  THIS  */ 
/*  ONE.  */ 
/***•*★»*★*★**★*★*****■***»•**»»»•*-**★»★★*★★★★★★★★★★★★★*★★■*■*■★★■*■*■★■*■*■■*•■*■*■•*•/ 


.  DRGS  456,  600,  601,  603,  605.  AND  608  . - . - . . 

PROCESS  DRGS  600,  601,  603,  605,  ANO  608  AND  DRG  456  (EXTEN¬ 
SIVE  BURNS  TRANSFERRED)  SEPARATELY.  IF  NOT  A  LONG-STAY  OUTLIER. 
GIVE  FULL  DRG  CREDIT  (CHMPWT).  IF  A  LONG-STAY  OUTLIER,  GIVE  FULL 
DRG  CREDIT  PLUS  LONG-STAY  PER  DIEM  CREDIT  (LS_WT)  FOR  ALL  DAYS  OVER 
THE  LONG-STAY  CUTOFF  POINT  (CHHICUTA). 
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WHEN  ( DRG=456  OR  DRG=600  OR  0RG=601  OR  DRG=603  OR  DRG=605 
OR  0RG=608)  DO: 

SELECT; 

WHEN  (BBDAYS  LE  CHHICUTA)  DO; 

RWP=CHMPWT; 

BASERWP=RWP; 

I N_RWP=RWP ; 

I NCOUNT=l ; 

END; 

WHEN  (BBDAYS  GT  CHHICUTA)  DO; 

OUTCAT= ' 2 ' ; 

LSB_RWP=CHMPWT; 

LSO_RWP=LS_WT'( BBDAYS -CHHICUTA) ; 
RWP=LSB_RWP+LSO_RWP; 

S AS t RW r -Li 8_RWP ; 

OUTRWP=LSO_RWP; 

LS_RWP=RWP ; 

LSCOUNT=l ; 

END;  /'  WHEN  ’/ 

END;  /'  SELECT  -/ 

END;  /’  WHEN  DRG=456 . 600 . 601 , 603 . 605 . 608  */ 


Parameter  and  Variable  Update  Section:  No.  4 

The  final  edits  to  the  SAS  portion  of  the  source  code  are  required 
only  if  the  input  Biometrics  data  record  layout  has  changed. 


PARAMETER  AND  VARIABLE  UPDATE  SECTION:  NO.  4  *.****.*»»-»*/ 
/’  IF  INPUT  FILE  LAYOUT  HAS  CHANGED.  MAKE  CORRESPONDING  CHANGES  */ 
/*  TO  PUT  STATEMENTS  BELOW.  */ 

FILE  BIOOUT; 

PUT 


@1 

PRN 

SCHAR7.  /* 

PATIENT  REGISTER  NUMBER  */ 

@8 

MTFCODE 

SCHAR6 .  /* 

REPORTING  MTF  */ 

@14 

STRING1 

SCHAR13. 

@27 

0X1 

SCHAR8 .  /* 

DIAGNOSIS  #1  */ 

@35 

STRING2 

SCHAR100 . 

@135 

STRING3 

$CHAR38 . 

@173 

ADMSRC 

$CHAR1 .  /* 

SOURCE  OF  ADMISSION  */ 

@174 

DISPDATE 

SCHAR6.  /* 

DATE  OF  DISPOSITION  */ 

@180 

STRING4 

SCHAR100 . 

@280 

STRING5 

SCHAR100 . 

@380 

STRING6 

SCHAR12. 

@392 

DMISID 

SCHAR4  . 

@396 

STRING7 

SCHAR6 . 

@402 

DMISBENF 

SCHAR3.  /* 

DMIS  BENEFICIARY  CATEGORY  */ 

@405 

STRING8 

$CHAR6 . 

@411 

DMISDAYS 

4 .  /* 

REC  TOT  BED/BASS  DAYS  */ 

@415 

STRING9 

SCHAR13 . 
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@428 

RECDISP 

$CHAR2.  /*  RECODED  DISP  STATUS 

@502 

DRG 

3. 

@505 

MDC 

SCHAR2 . 

@507 

STRING10 

SCHAR31. 

@538 

BASERWP 

9.4 

@547 

OUTRWP 

9.4 

@556 

OUTCAT 

SCHARl  . 

@557 

DRGICAT 

SCHARl . 

@558 

FILLER 

$CHAR1 . 

3.4.2  SUBMITTING  JOBS  UNDER  WYLBUR 

In  order  to  submit  a  job  under  WYLBUR.  the  computer  operator  must 
have  access  to  a  Ft.  Detrick  signon  I  .  and  the  correspond!' ng  password. 
After  logging  on  to  WYLBUR.  the  computer  operator  must  type 


SET  VOL  USER21 

(or  the  volume  where  the  source  code  resides).  Then  the  operator  must 
type 

USE  'filename' 

where  'filename'  is  the  name  of  file  in  which  the  source  code  resides. 
After  this,  the  operator  must  type 
RUN  FET 

which  submits  the  job  for  batch  processing.  At  this  point,  the  job  is 
assigned  a  number.  After  the  job  has  completed  running,  the  operator 
must  type 

FET  'job  number' 

where  'job  number'  is  the  number  assigned  to  the  job  when  it  was  submit¬ 
ted.  The  computer  operator  should  then  type  the  following  command: 

LIST  'ERROR' 

which  will  result  in  a  screen  display  of  all  lines  in  the  job  log  that 
contain  the  word  ERROR.  The  code  has  been  used  extensively,  and  the  SAS 
algorithm  itself  should  not  produce  any  error  messages.  However,  there 
may  be  JCL  errors  if  filenames  have  been  erroneously  typed.  If  this  is 
the  case,  the  job  log  will  contain  error  messages  indicating  that  the 
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filename  entered  was  not  found.  There  may  be  error  messages  involving 
worksoace.  as  noted  previously.  If  there  are  no  errors,  the  operator 
should  type 

LIST  'WARNING' 

No  WARNING  messages  were  ever  discovered  in  the  course  of  the  program  de¬ 
velopment  and  use.  If  WARNING  messages  occur,  the  operator  must  locate 
someone  knowledgeable  in  SAS  to  determine  whether  the  WARNING  is  really 
a  cause  for  concern.  If  there  are  no  WARNING  messages,  the  operator 
should  type 

LIST  'NOTE:  ' 

This  command  will  result  in  quite  a  few  lines  being  printed  to  the 
screen.  Most  of  the  lines  will  be  of  no  consequence,  indicating  the  ver¬ 
sion  of  SAS  being  used,  how  much  memory  and  CPU  time  were  used  for  each 
step.  Howc.er.  there  are  some  things  for  which  the  operator  should 
1  ook : 

•  whether  the  number  of  observations  written  to  the  output  file 
matches  that  read  in  from  the  input  file;  or 

•  whether  the  computer  encountered  any  variables  which  were 
uni ni ti al i zed . 

If  the  former  happens,  re-submit  the  job.  If  the  latter  happens,  some¬ 
one  knowledgeable  with  the  input  file  development  must  be  located  to 
determine  how  the  code  should  be  changed.  A  good  QC  check  at  this  point 
would  be  to  verify  that  the  number  of  observations  matches  the  number  of 
records  submitted.  The  operator  should  be  sure  to  obtain  the  DMIS  SIDR 
processing  information  from  the  DMIS  staff. 

If  there  are  no  ERRORS  or  WARNINGS,  and  if  there  are  no  NOTEs  of 
consequence,  the  program  has  normally  terminated,  and  the  QC  portion  of 
the  RWP  attachment  can  be  started.  To  save  this  job  log  type 
SAVE  'filename'  LRECt=132  CmT 
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where  'filename'  is  the  file  name  you  give  the  job  log.  LRECL  is  the 
logics’  record  length  of  the  job  log.  which  is  always  132  unless  it  has 
been  changed  in  the  SAS  code  of  the  program.  Typing  CAT  makes  sure  the 
job  log  is  catalogued  under  this  file  name. 


3.4.3  CHECKING  THE  JOB  LOGS 

The  job  log  should  be  checked  to  make  sure  that  the  correct  number 
of  observations  was  read  in.  written  out.  and  that  no  observations  were 
lost  after  data  sets  was  merged  together.  For  example,  on  pages  6  and  7 
of  the  Army  job  log  in  exhibit  C-l  of  appendix  C.  the  following  state¬ 
ments  follow  the  INFILE  data  step: 


NOTE:  THE  INFILE  BIOIN  IS: 

D$NAME=HAF.CON.VRI . MYT . ARMY . G123491 . S I  DR . VA , 

UN!T=3400,VOLUME=0 017 88,01 SP=SHR . BLKSI ZE=32364 
LRECL=537 . RECFM=FB 

NOTE:  395673  RECOROS  WEkE  READ  FROM  THE  INFILE  BIOIN. 

NOTE:  THE  OATA  SET  WORK. TEMPI  HAS  395673  OBSERVATIONS  AND  21  VARIABLES. 
NOTE:  THE  DATA  STATEMENT  USED  46.41  CPU  SECONDS  AND  2971K. 


The  first  NOTE  statement  gives  the  name  of  the  file  that  was  read  in. 
the  tape  volume  it  came  from  and  the  logical  record  length  (LRECL=537) 
of  each  record.  The  second  and  third  NOTEs  verify  that  395673  records 
and  21  variables  were  read  in.  The  fourth  NOTE  states  the  length  of 
time  and  amount  of  memory  it  took  to  perform  this  datastep.  The  same 
type  of  information  is  given  after  each  merge  and  when  the  final  data 
set  is  written  out: 


NOTE:  THE  FILE  BI00UT  IS: 

DSNAME=HAF.CON. VRI . TMR . S I  DR . ARMY . CHAMPRWP . FY91 . 
UNIT=3400.V0LUME=003486.DISP=NEW , BLKSI ZE=2 3436 . 

NOTE:  395673  RECORDS  WERE  WRITTEN  TO  THE  FILE  BIOOUT. 

NOTE:  THE  OATA  SET  WORK . TEMP3  HAS  395673  OBSERVATIONS  AND  26  VARIABLES. 
NOTE:  THE  DATA  STATEMENT  USED  114.79  CPU  SECONDS  AND  3693K. 


These  statements  verify  that  the  correct  number  of  records  were  written 
to  the  new  file,  along  with  5  new  variables:  BASERWP,  OUTRWP,  OUTCAT, 
DRGICAT ,  and  FILLER. 


3.4.4  MANAGEMENT  INFORMATION 

The  following  checklists  should  be  followed  in  submitting  the  RWP 
attachment  program. 


Things  you  need  to. know  to  run  the  SIDR  RWP  Processor 

(1)  Ft.  Detrick  computer  system 

•  Access  to  account  initials  and  password 

.  How  to  log  on  (either  di  ct  dial,  or  DDN  through  VAX) 

•  WYLBUR  Editor 

(2)  Basic  familiarity  with  job  control  language  (JCL) 

(3)  SAS  language  (Extremely  helpful,  but  not  absolutely  neces¬ 
sary,  unless  policy  decision  needs  to  be  implemented  in  the 
code . ) 

Preprocessing  Checklist 

•  Input  Biometrics  data  sets: 

•  Army 

•  Navy 

•  Air  For>. 

•  Number  of  observations  for  each  Service  obtained  during  DMIS 
SIDR  processing: 

•  Army 

•  Navy 

•  Air  Force 

•  Have  these  data  been  screened  for  invalid  values?  Have  dupli¬ 
cate  records  been  eliminated?  (Important:  The  SIDR  RWP  pro¬ 
cessor  assumes  that  all  duplicate  records  have  been  eliminated, 
based  upon  MTF  code  and  patient  register  number.) 

•  DRG  weights.  GLOS.  and  trim  points  for  current  version  of 
grouper 

•  Dataset  name 

•  RWP  SIDR  processing  code  filenames 

•  Army 

•  Navy 

•  Air  Force 
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RWP  Attachment  Run  Checklist 

•  Army  JCL  modifications: 

•  Account  initials  (lines  1  &  2) 

•  Input  8iometrics  file  (line  5) 

•  DRG  weight,  GLOS,  and  trim  point  file  (line  6) 

•  Output  file  (line  8) 

•  Immediately  scratch  output  file  upon  run  completion? 

(lines  9-12) 

•  Expiration  date  on  output  data  set  (line  11) 

•  LRECL  and  BLKSIZE  on  output  data  set  (line  14) 

•  Army  SAS  code  modifications: 

•  Change  TITLE  statement. 

.  Change  INPUT  statements,  if  necessary,  to  reflect  any 
changes  in  Biometrics  record  layout. 

•  Change  member  name  of  SAS  data  set  containing  DRG  weights, 
GLOS,  and  trim  points. 

•  Change  variable  names  of  DRG  weights.  GLOS,  and  trim  points 
to  correspond  to  those  in  the  SAS  input  data  set. 

•  Verify  that  per  diem  credit  for  outliers  in  code  is  correct 

•  Verify  that  exceptional  DRGs  and  policy  for  assigning  RWPs 
for  these  DRGs  is  correct  in  code. 

•  Change  PUT  statements.  necessary,  to  reflect  any  changes 
in  record  layout. 

•  Navy  JCL  modi f i ca t ions : 

•  Account  initials  (lines  1  &  2) 

•  Input  Biometrics  file  (line  5) 

•  DRG  weignt,  GLOS,  and  trim  point  file  (line  6) 

•  Output  file  (line  8) 

•  Immediately  scratch  output  file  upon  run  completion? 

(lines  9  - 12  ) 

•  Expiration  date  on  output  dataset  (line  11) 

•  LRECL  and  BLKSIZE  on  output  dataset  (line  14) 

•  Navy  SAS  code  modi f i cations : 

•  Change  TITLE  statement. 

•  Change  INPUT  statements,  if  necessary,  to  reflect  any 
changes  in  Biometrics  record  layout. 

•  Change  member  name  of  SAS  dataset  containing  DRG  weights, 
GLOS.  and  trim  points. 

•  Change  variable  names  of  DRG  weights,  GLOS,  and  trim  points 
to  correspond  to  those  in  the  SAS  input  dataset. 

•  Verify  that  per  diem  credit  for  outliers  in  code  is  correct 

•  Verify  that  exceptional  DRGs  and  policy  for  assigning  RWPs 
for  these  DRGs  in  code  is  correct. 

•  Change  PUT  statements,  if  necessary,  to  reflect  any  changes 
in  record  layout. 

•  Air  Force  JCL  modifications: 

•  Account  initials  (lines  1  &  2) 

•  input  Biometrics  file  (line  5) 

•  DRG  weight.  GLOS,  and  trim  point  file  (line  6) 

•  Output  file  (line  8) 

•  Immediately  scratch  output  file  upon  run  completion? 

( 1 i nes  9  - 12 ) 
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•  Expiration  date  on  output  dataset  (line  11) 

•  LRECL  and  BLKSIZE  on  output  dataset  (line  14) 

•  Air  Force  SAS  code  modifications: 

•  Change  TITLE  statement. 

•  Change  INPUT  statements,  if  necessary,  to  reflect  any 
changes  in  Biometrics  record  layout. 

•  Change  member  name  of  SAS  dataset  containing  DRG  weights, 
GLOS,  and  trim  points. 

•  Change  variable  names  of  DRG  weights,  GLOS,  and  trim  points 
to  correspond  to  those  in  the  SAS  input  data  jet. 

•  Verify  that  per  diem  credit  for  outliers  in  code  is 
correct . 

•  Verify  that  exceptional  DRGs  and  policy  for  assigning  RWPs 
for  these  DRGs  is  correct  in  code. 

•  Change  PUT  statements,  if  necessary,  to  reflect  any  changes 
in  record  layout. 


Review  RWP  Attachment  Job  Logs 

•  Army  RWP  Attachment  Logs: 

•  Verify  that  the  record  counts,  input  and  output,  match  each 
other  and  the  record  counts  obtained  during  the  DMIS  Army 
Biometrics  processing. 

•  Are  there  any  ERROR  or  WARNING  messages? 

.  Are  there  any  consequential  NOTE  messages  (e.g., 
uninitialized  or  missing  variables)? 

•  Navy  RWP  Attachment  Logs: 

•  Verify  that  the  record  counts,  input  and  output,  match  each 
other  and  the  record  counts  obtained  during  the  DMIS  Navy 
Biometrics  processing. 

•  Are  there  any  ERROR  or  WARNING  messages? 

•  Are  there  any  consequential  NOTE  messages  (e.g., 
uninitialized  or  missing  variables)? 

•  Air  Force  RWP  Attachment  Logs: 

•  Verify  that  the  record  counts,  input  and  output,  match  each 
other  and  the  record  counts  obtained  during  the  DMIS  Air 
Force  Biometrics  processing. 

•  Are  there  any  ERROR  or  WARNING  messages? 

•  Are  there  any  consequential  NOTE  messages  (e.g., 
uninitialized  or  missing  variables)? 


3.4.5  INPUT-OUTPUT  FILES  ; 

As  noted  previously,  there  are  four  input  files  to  the  RWP 
attachment  programs,  three  of  which  are  Service  specific.  The  file 
which  is  common  to  each  Services'  run  is 

I 

.  HAF.CON.VRI .TMR.CHAMPUS.TRIMPTS.VERS8.SDS. 
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This  data  set  is  on  d''.k,  volume  USER21.  on  the  Ft.  Detrick  computer 
system,  as  of  the  date  this  document  was  published.  Datasets  on  the  Ft. 
Detrick  system  are  archived  to  tape  90  days  after  the  last  access  date. 
If  they  have  been  archived,  they  will  be  retrieved  to  disk  by  the  Ft. 
Detrick  system  if  they  are  accessed  by  a  program.  In  addition  to  this 
dataset,  each  RWP  attachment  program  will  access  one  of  the  Services’ 
Biometrics  datasets,  depending  upon  the  Service  branch  for  the  given 
run.  For  the  F y 9 1  processing,  these  datasets  were 

Army:  HAF . CON . VRI . MYT . ARMY . G1 2349 1 . S I  DR . VA ; 

•  Navy:  HAF. CON. VRI .MYT. NAVY. G123491 . S I  DR . VA ;  and 

•  Air  Force:  HAF . CON . VRI . MYT . USAF . G12349 1 . S I  DR . VA . 

These  we-e  flat  files  contained  on  tape  at  the  Ft.  Detrick  system.  The 
layouts  for  these  files  are  contained  in  exhibit  A-l  in  appendix  A.  All 
of  the  files  described  in  this  section  may  be  accessed  through  any  ac¬ 
count  that  has  authori zation  to  use  files  with  the  HAF. CON  prefix. 

There  are  RACF  controls  on  any  data  set  with  a  HAF. CON  prefix  which 
prohibit  accounts  which  do  not  have  authori zati on  to  access  these  data 
sets.  Finally,  note  that  because  the  Biometrics  data  contain  social 
security  numbers,  these  data  are  protected  under  the  provisions  of  the 
Privacy  Act  of  1974.  The  data  contain  patient  identity  information  and 
thus  require  safeguards  from  unauthorized  access  and  use.  It  is  the 
responsibility  of  the  user  of  this  data  to  properly  safeguard  patient 
identifying  information. 

Three  output  files  are  created  by  the  RWP  attachment  programs,  one 
for  each  Service  branch.  The  three  files  created  by  the  SIDR  RWP 
processor  for  F Y 9 1  Biometrics  were: 

.  Army:  HAF .CON .VRI .TMR . SIDR . ARMY .CHAMPkwF . FY91 ; 

•  Navy:  HAF. CON. VRI .TMR. SIDR. NAVY. CHAMPRWP . FY91 ;  and 

•  Air  Force:  HAF . CON . VRI . TMR . S I  DR . USAF . CHAMPRWP . FY91 . 
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The  output  file  layouts  are  identical  to  the  input  file  layouts,  but 
with  the  following  information  attached,  at  the  noted  positions: 


Vari able 

Variable 

Col umn 

Qescri Dti on 

Name 

Position 

Length 

base  RWPs  (real  9.4) 

BASERWP 

538:546 

9 

long-stay  outlying 

bed  day  RWPs  (real  9.4) 

OUTRWP 

547:555 

9 

outlier  status  flag 

OUTCAT 

556:556 

1 

transfer  status  flag 

DR6ICAT 

557:557 

1 

filler 

FILLER 

558:558 

1 

3.4.6  OUTPUT  REPORTS 

The  only  reports  associated  with  the  RWP  attachment  program  are 
the  tables  printed  in  the  job  log  reporting  various  tabulations  of  RWP$ 
and  di spos i ti ons . 


3.5  QC/INFORMATION  PROGRAM  RUN  DESCRIPTION 

This  section  provides  the  detailed  information  required  to  execute 
runs  of  the  QC  tabulation  code.  It  is  assumed  that  the  SIOR  RWP  proces 
sor  will  be  run  on  the  Ft.  Detrick  system.  Prior  to  running  the  QC  tab 
ulation  code  for  any  Service,  the  RWP  attachment  code  for  the  given 
Service  must  be  run,  and  the  output  dataset  accessible.  In  addition, 
the  job  log  from  the  run  corresponding  to  the  output  dataset  should  be 
available  in  hardcopy,  in  order  to  allow  manual  tabulation  comparisons. 


3.5.1  CONTROL  INPUTS 

The  JCL  for  the  SAS  source  code  that  tabulates  RWPs  and  disposi¬ 
tions  from  the  Army  output  dataset  is  as  follows: 


L 
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1.  //CSRTMR  JOB  (RAMS) . ’VECTOR  RESEARCH 1 .CLASSIC .M$GCLASS=X , 

2.  '  MSGLEVEL=(1,1),TIME=(10,0). NOTIFY =C SR 

3.  //  EXEC  SAS606 ,  WORK= 1 100 , 100 ‘ , S0RT=6 ,REGIQN=4096K 

4.  //BIOIN  DD  OSN=H AF. CON. VRI.TMR.SIDR. ARMY. CHAMPRWP.FY9I 

The  following  discussion  presents  the  lines  that  must  change  for  any 
future  processing,  which  will  include  running  these  tabulation  programs. 
While  the  JCL  for  the  Army  processing  is  shown,  the  changes  are 
analogous  for  the  Navy  and  Air  Force. 

Lines  1  and  2 

The  CSR  initials  must  be  set  equal  to  the  Ft.  Detrick  account  ini¬ 
tials  of  the  computer  operator. 

Li ne  4 

The  data  set  name  must  be  changed  to  be  the  same  as  the  output 
data  set  from  the  RWP  attachment  program  JCL  (line  8)  from  the  run  that 
created  the  final  data  set. 


3.5.2  MANAGEMENT  INFORMATION 

The  following  checklists  should  be  followed  in  submitting  the 
tabulation  QC  program. 


lA^mUtifl.n_QC...Run 

•  Tabulation  QC  source  code  file  names: 

•  Army 

•  Navy 

•  Air  F  o  r  c  e 

•  Army  JCL  modifications: 

•  Change  account  initials  (lines  1  and  2) 

•  Input  data  set  (set  equal  to  output  data  set  from  prelim¬ 
inary  RWP  run) 
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•  Navy  JCL  modifications: 

•  Change  account  initials  (lines  1  and  2) 

•  Input  data  set  (set  equal  to  output  data  set  from  prelim¬ 
inary  RWP  run) 

•  Air  Force  JCL  modifications: 

•  Change  account  initials  (lines  1  and  2) 

•  Input  data  set  (set  equal  to  output  data  set  from  prelim¬ 
inary  RWP  run) 

•  Are  there  any  changes  in  the  RWP  attachment  output  data  set 
file  layouts?  If  so,  the  SAS  INPUT  statement  at  the  beginning 
of  the  program  needs  to  be  changed  to  reflect  this  fact  for 
each  Service. 

•  Army 

•  Navy 

•  Ai r  Force 


Review  Tabulation  QC  Job  Logs 

.  Army  Tabulation  QC  Logs: 

•  Verify  that  record  counts  input  match  record  counts  output 
by  RWP  attachment  program. 

•  Are  there  any  ERROR  or  WARNING  messages? 

•  Are  there  any  consequential  NOTE  messages  (e.g.,  uninitial¬ 
ized  or  missing  variables) 

•  Navy  Tabulation  QC  Logs: 

•  Verify  that  record  counts  inDut  match  record  counts  Output 
by  RWP  attachment  program. 

•  Are  there  any  ERROR  or  WARNING  messages? 

•  Are  there  any  consequential  NOTE  messages?  (e.g.,  uninitial¬ 
ized  or  missing  variables) 

•  Air  Force  Tabulation  QC  Logs: 

•  Verify  that  record  counts  input  match  record  counts  output 
by  RWP  attachment  program, 

•  Are  there  any  ERROR  or  WARNING  messages? 

•  Are  there  any  consequential  NOTE  messages?  (e.g.,  uninitial¬ 
ized  or  missing  variables) 


Manually  Check  Preliminary  Tabulation  QC  Job  Logs  against  RWP  Attachment 

Jot?  logs 

•  For  each  Service  Branch: 

•  by  DM  I S I D 

•  Base  RWPs 

•  Outlying  RWPs 

•  Total  Dispositions 

•  by  Outlier  Status  Category  (OUTCAT) 

•  Base  RWPs 

•  Outlying  RWPs 

•  Total  Dispositions 
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•  by  Transfer  Status  Category  (DRGIrAT) 

•  Base  RWPs 

•  Outlying  RWPs 

•  by  Major  Diagnostic  Category  ( MDC ) 

•  Base  RWPs 

.  Out  1 y i ng  RWPS 

•  Total  Dispositions 

•  by  DMIS  Recoded  Beneficiary  Type  (DMISBENF) 

.  Base  RWPs 

•  Outlying  RWPs 

•  Total  Dispositions 

3.5.3  INPUT-OUTPUT  FILES 

As  described  in  section  3.4.4.  the  input  files  for  trie  tabulation 
OC  program  for  any  Service  branch  is  the  output  file  from  the  RWP  attacn- 
ment  program.  Therefore,  the  input  files  for  F V 9 1  were: 

.  Army:  HAF . CON . VR I . TMR . SI  DR . ARMY . CHAMPRWP . FY91 : 

•  Navy:  HAF. CON. VR! .TMR. SIDR. NAVY. CHAMPRWP. FY91;  and 

.  Air  Force:  HAF . CON . VR I . TMR . $  I  DR . USAF . CHAMPRWP . FY91 . 

3.5.4  OUTPUT  REPORTS 

The  only  reports  associated  with  the  tabulation  QC  program  are  the 
tables  printed  in  the  job  log  reporting  various  tabulations  of  RWPs  and 
dispositions  across  the  values  of  selected  variables. 

3.5.5  OTHER  QC  REPORTS 

there  are  eight  other  OC/ I nforma t i on  reports  that  should  also  be 
run  3fter  the  RWPs  have  been  attached.  Hardcopy  of  these  programs  can 
be  found  in  appendix  B.  and  a  sample  page  of  output  for  each  can  be 
found  in  appendix  C: 

HAF.CON.VRI . TMR. TRIMPTQC. PROG; 

.  HAF.CON.VRI .TMR. BEDDAYOC. PROG: 

.  HAF.CON.VRI .TMR. CROSSTAB. PROG; 
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HAF.CON.VRI . TMR . LOSPCTQC . PROG ; 
HAF.CON.VRI .TMR. LOSFRQQC. PROG; 
HAF.CON.VRI .TMR. RWPDRGQC. PROG; 
HAF.CON.VRI . TMR. RWPMTFQC. PROG; 
HAF.CON.VRI .TMR. RWPSVCQC. PROG. 


and 


The  first  program  (TRIMPTQC)  prints  out  the  contents  of  the  trim 
point  file;  DRG,  DRG  title,  ORG  weight,  GLOS.  per  diem  weight,  short- 
stay  weight,  long-stay  weight,  low  cut  point,  and  high  cut  point  for 
each  DRG. 

The  8EDDAYQC  program  prints  out  ORG,  DRG  title,  dispositions,  bed- 
days,  ALOS.  percent  of  total  beddays.  percent  of  total  dispositions,  and 
cumulative  percentages  for  each  DRG. 

The  CROSSTAB  program  prints  out  total  dispositions,  bad  disposi¬ 
tions  (dispositions  for  DRGs  469  and  470).  total  RWPs,  and  beddays  for 
each  beneficiary  category,  clinical  area,  MDC,  and  gender-age 
categori es . 

The  LOSPCTQC  program  prints  out  DRG,  DRG  title,  dispositions,  the 
lr  .  25th,  50th,  75th  and  90th  LOS  percentiles,  minimum  LOS,  maximum 
LOS,  ALOS,  standard  deviation,  and  coefficient  of  variation  for  each 


ORG. 


The  LOSFRQQC  program  prints  out  total  dispositions,  good  disposi¬ 
tion,  beddays,  total  RWPs,  and  CM I  for  each  LOS. 

The  RWPDRGQC,  RWPMTFQC.  and  RWPSVCOC  programs  print  out  DRG,  DRG 
title,  short-stay  dispositions  and  RWPs.  ini i e r  dispositions  and  RWPs, 
long-stay  dispositions  and  RWPs,  transfer  dispositions  and  RWPs.  bad 
dispositions,  total  dispositions  and  RWPs,  and  percent  of  total  RWPs  for 
each  DRG,  MTF ,  and  Service. 

For  all  of  these  programs,  the  CSR  initials  must  be  set  equal  to 
the  Ft.  Detrick  account  initials  of  the  computer  operator,  and  the  data 
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set  names  must  be  changed  to  be  the  same  as  the  output  data  sets  from 
the  PW?  attachment  program  JCL  from  the  run  which  created  the  final  data 
sets.  The  titles  should  be  modified  to  correspond  with  the  current 
fiscal  year. 

Finally,  the  RWPs  and  dispositions  from  the  current  year  should  be 
compared  against  previous  years'  RWPs  and  dispositions  at  the  MTF  and 
DRG  level.  This  can  be  done  by  comparing  the  QC  reports  from  one  year 
to  the  same  OC  reports  generated  the  previous  year. 


A-l 


APPENDIX  A 


Exhibit  A-l  contains  the  FY91  Biometrics  record  layout.  Table  A-2 
presents  the  Version  8  CHAMPUS  DRGs  and  outlier  criteria,  with  direct 
care  modifications.  Table  A-3  lists  the  fields  appended  to  the  537-byte 
Biometrics  record  by  the  SIDR  RWP  processor.  Table  A-4  contains  the 
current  source  of  admission  codes  and  recoded  disposition  codes. 
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EXHIBIT  A-1 :  FY91  BIOMETRICS  RECORD  LAYOUT 


Field  Name 

Column 

Position 

Length 

S  ICR 

Position 

*  FIELDS  FROM  INPUT  RECORD 

Patier.t  Register  Humber 

1:7 

7 

7:13 

Reporting  MTF 

3:13 

6 

14:19 

Record  Disposition  Status 

14:14 

1 

502:502 

Version  Number  (Record) 

15:15 

1 

503:503 

Age  at  Admission 

16:18 

3 

48:50 

Sex 

19:19 

1 

54:54 

Beneficiary  Category  (Pat  Cat) 

20:22 

3 

66:63 

Pay  Grade 

23:24 

2 

69:70 

Disposition  Type 

25:26 

2 

105:105 

Diagnosis  #1 

27:34 

5 

132:139 

Diagnosis  HZ 

35:42 

8 

140:147 

Diagnosis  #3 

43:50 

8 

143:155 

Diagnosis  #4 

51:53 

3 

155:163 

Diagnosis  #5 

59:66 

8 

164:171 

Diagnosis  #6 

67:74 

8 

172:179 

Diagnosis  HI 

75:82 

8 

180:187 

Diagnosis  #8 

83:90 

8 

183:195 

Procedure  #1 

91: 58 

8 

235:  *42 

Procedure  #2 

S9: 1C6 

8 

243:^50 

Procedure  #3 

107:114 

8 

251:258 

Procedure  #4 

115:122 

8 

259:266 

Procedure  #S 

123:130 

8 

257:274 

Procedure  #6 

131:133 

8 

275:282 

Procedure  #7 

139: 246 

8 

283:290 

Procedure  #8 

147:154 

8 

291:253 

Total  Bed  Days  this  MTF 

155:158 

4 

305:309 

Cate  of  Blrthyyyy nruncU 

159:166 

S 

40:47 

Date  this  Admission  yymmdd 

167:172 

6 

S3 :  9S 

Source  of  Admission 

173:173 

1 

85 : 86 

Date  of  Disposition 

174:179 

6 

99:104 

Cl  Ink  Service  Admitting 

180:183 

4 

355:358 

Bed  Days  Admitting  Service 

184:187 

4 

359:362 

Cl  ink  Service  2nd 

153:191 

4 

363:355 

Bed  Cays  2nd  Clinical  Service 

192: i 9  5 

4 

357:370 

Cl inic  Service  3rd 

196:193 

4 

371:374 

Bed  Days  3rd  Clinical  Service 

200:203 

4 

375:373 

Clinic  Service  Disposition 

204:207 

4 

379:382 

Bed  Days  Disposition  Clinic  Service 

203:211 

a 

383:386 

MTF  Location  (State/Country  Code) 

212:213 

2 

20:21 

Family  Member  Prefix 

214:215 

2 

29:30 

Sponsor  SSN 

216:224 

q 

31:39 

Patient’s  Residence  Zip 

225:233 

9 

67:65 

Humber  of  Diagnostic  Fields  Cent.  Codes 

234:235 

2 

196:157 

Humber  cf  Procedure  Field:  Cent,  Cedes 

236:237 

2 

299:300 

•  1 


Continued 


EXHIBIT  A-1 :  FY91  BIOMETRICS  RECORD  LAYOUT 
(CONTINUED) 


Date  of  Initial  Admission  222:243 
Total  Sick  Cays  at  this  MTF  244:248 
Bass —at  Days  (Neonatal)  249:252 
Bed  Cays  this  MTF  (Intensive  Care  Unit)  253:255 
Service  receded  age  257:259 
Service  re coded  sex  260:260 
Service  receded  disposition  status  261:262 
Service  recoded  diagnosis  #1  263:267 
Service  recoded  diagnosis  #2  268:272 
Service  recoded  diagnosis  #3  273:277 
Service  receded  diagnosis  #4  278:282 
Service  recoded  diagnosis  #5  283:287 
Service  recoded  diagnosis  #6  288:292 
Service  receded  diagnosis  17  293:297 
Service  recoded  diagnosis  #8  298:302 
Service  recoded  procedure  #1  303:306 
Service  recoded  procedure  *2  307:310 
Service  recoded  procedure  #3  311:314 
Service  receded  procedure  #4  315:318 
Service  recoded  procedure  #5  319:322 
Service  recoded  procedure  H 6  323:326 
Service  recoded  procedure  #7  327:330 
Service  recoded  procedure  #8  331:334 
Service  DRG  (Diagnosis  Related  Group)  335:337 
Service  MDC  (Major  Diagnostic  Category)  338:339 
Service  RTC  (Return  Code  from  Grouper)  340:340 
Service  MPR  (Procedure  used  for  DRG)  341:344 
Service  ADX  (Any  diag.  used  for  DRG)  345:349 
Service  SDX  (second,  diag.  •  DRG  select. ) 350 : 354 
Service  VCC  (Version  Control  Card)  355:365 


*  New  fields  Introduced  for  FYS0  processing 


Race  366:366 
Ethnic  Background  367:367 
Autopsy  Performed  368:368 
Trauma  369:369 
Cause  of  Injury  (STANAG)  370:372 
Geographic  Location  of  Occurrence  373:374 
Underlying  Cause  of  Death  375:375 
Primary  Provider  SSN/Filler  376:384 
Mother’ s/Newborn’ s  Register  Number  385:391 


6 

5 

4 

4 

3 
1 
2 

5 
5 
5 
5 
5 
5 
5 
5 

4 
4 
4 
4 
4 
4 
4 
4 

3 
2 
1 

4 

5 
5 

11 


1 

1 

1 

1 

3 

2 

1 

9 

7 


*  DM.:S  APPENDED  FIELDS 

Note:  Grouper  Fields  are  Different  for  F191  than  prior  years. 


Recoded  CMISID 

DM  I S  Services  Facility  ID  (0CWID) 
Recoded  Service  Branch  of  Facility 
CM I S  Eeneficiary  Category 
DM I S  Clinical  Service  Cede 


392:355  4 
396:400  5 
401:401  1 
402 : 4C4  3 
405:407  3 


87:92 

346:353 

313:321 

351:354 

depending 

on 

service 

input 

record 

•  Navy 
grouped 
all  the 
records . 

-  Armv  & 
USAf 
did 
net 


55:55 

56:55 

107:107 

126:126 

127:129 

130:131 

193:193 

414:422 

509:515 


1.4 

5:9 

10:10 

11:13 

14:16 


--  Continued  - 


A- 4 


EXHIBIT  A-1 :  FY91  BIOMETRICS  RECORD  LAYOUT 
(CONCLUDED) 


DM  I S  Service  Branch  of  Sponsor  403:403 
DM.5  Patient  Sex  409:409 
DM1 S  Patient  Age  Group  410:410 
Receded  Total  Occupied  Bed/Bassinet  Days  411:414 
Receded  Service  Branch  cf  Sponsor  415:415 
Receded  Beneficiary  Category  416:413 
Recoded  Service  Rank  419:420 
Receded  Clinical  Service  Code  421:423 
Receded  Age  424:426 
Receded  Sex  427:427 
Recoded  Disposition  Status  428:429 
filler  430:454 
0R1  (1st  OR  prcc  code  used  by  grouperl  455:458 
OR2  (2nd  OR  proc  code  used  by  grouper)  459:462 
0R3  (3rd  CR  proc  code  used  by  grouper)  463:466 
NP 1  (1st  rcn-OR  proc  used)  467:470 
NP2  (2nd  ncn-QR  proc  used)  471:474 
DX1  (1st  Diag  in  addition  to  prin  used)  475:479 
DX2  (2nd  Diag  code  used)  480:484 
DX3  (3rd  Diag  code  used)  485:489 
DCC  (Diag  for  compl Icaton/concrbidty)  490:494 
Filler  495:501 
DRG  (Diagnosis  Related  Group)  502:604 
HOC  (Major  Diagnostic  Category)  505:506 
RTC  (Return  Cede  from  Grouper)  507:507 
Recoded  Birth  Date  mm/dd/yy  508:515 
Receded  Admit  Date  nm/dd/yy  516:523 
Receded  Discharge  Oate  mm/dd/yy  -  524:531 
Receded  Century  cf  Birth  0-1SD0  1-1800  532:532 
Catchment  Area  of  Patient  533:536 
Catchment  Area  Inside/Outside  537:537 


1 

1 

1 

4 

1 

3 

2 

3 

3 
1 
2 

25 

4 
4 
4 
4 

4 

5 
5 
5 
5 

7 

3 
2 
1 

8 
8 
8 
1 

4 
1 


17:17 

18:13 

19:19 

20:23 

1:1 

2:4 

5:6 

7:9 

10:12 

13:13 

14:15 

16:40 

41:44 

45:43 

49:52 

53:56 

57:60 

61:65 

66:70 

71:75 

76:80 

81:87 

88:90 

91:92 

93:93 

94:101 

102:109 

110:117 

118:118 

119:122 

123:123 


*  NW  FIELDS  ADDED  FCR  FYSO  PROCESSING 


RWP  Base  credit  (real  9.4)  533:546 
RWP  Outlier  credit  (real  9.4)  547:555 
Outlier  Status  flag  556:556 
Transfer  Status  flag  557:557 
DXNNh  Status  flag  558:553 
RAPS  Data  Elements  555:569 
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11 


EXHIBIT  A-2:  CHANPUS  VERSION  8  DRGS  AND  OUTLIER  CRITERIA  WITH  DIRECT  CARE  MODIFICATIONS 
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The  short-stay  weight  is  twice  the  per-diem  credit. 


EXHIBIT  A-2:  CHAHPUS  VERSION  8  ORGS  AND  OUTLIER  CRITERIA  WITH  DIRECT  CARE  HOOIHCATIOHS 
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fXHIBIT  A  2:  CHAHPUS  VERSION  8  DKGS  AND  OUTIUR  CRITERIA  WITH  DIRECI  CARE  HODIF (CATIONS 
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EXH1B11  A- 2:  CHAMi  uS  VERSION  8  DRGS  AND  0U1L1ER  CRITERIA  WITH  DIRECT  CARE  MODIFICATIONS 
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TABLE  A-3:  FIELDS  ADDED  TO  THE  537-BYTE  BIOMETRICS  RECORD 
BY  THE  SIDR  RWP  PROCESSOR 


Variable  OescriDtion 

Col umns 

RWP  Base  Credit  (real  9.4) 

538:546 

RWP  Outlier  Credit(real  9.4) 

547:555 

Outlier  Status  Flag 

556:556 

Transfer  Status  Flag 

557:557 

Filler 

558:558 

A-21 


TABLE  A-4:  SOURCE  OF  ADMISSION  CODES  AND  RECODED  DISPOSITION  CODES 


SOURCE  OF  ADMISSION  CODES 


CODE  DESCRIPTION 

0  Direct  to  military  hospital  from  ER 

1  Direct  to  military  hospital  from  other  than  ER 

2  Direct  to  Quarters  (AD  Only  in  AF  MTF) 

3  AD  Direct  to  non-U. S.  Armed  Services  hospital  -  never 

transferred  to  military  hospital 

4  Initial  admission  in  non-U. S.  Armed  Services  hospital, 
transferred  to  military  (AD  only) 

5  Initial  admission  in  non-U. S.  Armed  Services  hospital, 
moved  to  military  hospital  (non-AD  only) 

6  Transfer  from  ARMY  hospital 

7  Transfer  from  NAVY  hospital 

8  Transfer  from  AIR  FORCE  hospital 

L  L’ve  birth  in  this  hospital 

C  Carded  for  Record  Only  (CRO) 


RECODED  DISPOSITION  CODES 


DESCRIPTION 

Carded  for  Record  Only  (CRO) 
Discharged  to  Home 
Transferred 

Left  Against  Medical  Advice 

Died 

Unknown 


CODE 

00 

01 

02 

07 

20 

XX 
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APPENDIX  8 

The  FY91  Army  RWP  attachment  program  is  contained  in  exhibit  B-l, 
and  the  JCL  for  the  Navy  and  Air  Force  RWP  attachment  programs  are  con¬ 
tained  in  exhibits  B-2  and  B-3,  respectively.  Exhibit  B-4  presents  the 
FY91  Army  QC  program,  and  exhibits  B-5  and  B-6  contain  the  JCL  for  the 
Navy  and  Air  Force  RWP  OC  programs,  respecti vely .  The  trim  point  OC 
program  is  presented  in  exhibit  B-7,  the  bedday  OC  program  in  exhibit 
B-8,  the  cross  tabulation  QC  program  in  exhibit  B-9.  the  length  of  stay 
percentiles  program  in  exhibit  B - 1 0 .  the  1 ength -of - s tay  frequency  pro¬ 
gram  in  exhibit  B - 1 1 .  the  RWP  QC  program  for  each  DRG  in  exhibit  B  - 1 2 . 
the  RWP  QC  program  for  each  MTF  in  exhibit  B-13.  and  the  RWP  QC  program 
for  each  Service  in  exhibit  B - 1 4 . 
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EXHIBIT  B-l:  FY91  ARMY  RWP  ATTACHMENT  PROGRAM 

//CSRTMR  JOB  (RAMS), 'VECTOR  RESEARCH' ,CLASS=F,MSGCLASS=X, 

//  MSGLEVEL*(1,1) , TIME- (20,0) ,NOTIFY=CSR 

/*JOBPARM  LINES-25 

//  EXEC  SAS606, WORK-' 100, 100' , SORT-10, REGI0N-4096K 

//BIOIN  DD  DSN-HAF.CON.VRI  .MYT.ARM'f . G123491 ,SIDR.VA,DISP=SHR 
//WTIN  DD  DSN-CSR . CHTRIMPT . FY90V8 . SD2 , DISP-SHR 

// 

//BIOOUT  DD  DSM=HAF. CON. VRI.TMR.SIDR. ARMY. CHAMPRWP. FY91 , 

//*  DISP=(NEW, DELETE), 

//  DISP=(NEW,CATLG, DELETE), 

//  LABEL- ( 1 , SL , , , EXPDT=99000) , 

//*  LABEL*(1 ,SL) , 

//  UNIT-TAPE, 

//  DCB=(LRECL=558,RECFM=FB,BLKSIZE=23436) 

******  PROGRAM  NAME:  HAF . CON . VR I . TMR . S I DR . RWPARMY . F Y9 1  ******; 


BASIC  STRUCTURE  OF  PROGRAM: 

I.  READ  ENTIRE  BIOMETRICS  FILE  INTO  SAS  DATASET. 

II.  SET  UP  A  TEMPORARY  SAS  DATASET  WITH  FIELDS  NECESSARY  TO 
COMPUTE  RWPS,  SET  UP  FLAGS,  AND  COMPUTE  TABULATIONS. 

III.  MERGE  WITH  DRG  DATASET  CONTAINING  DRG  WEIGHT,  GLOS,  HI  CUT, 
LOCUT. 

IV  PROCESSING: 

A.  SET  TRANSFER  STATUS  FLAG 

B.  COMPUTE  RWPS 

’ .  SET  OUTLIER  STATUS  FLAG 
V.  PRINi  REPORTS 

VI  SORT  BY  MTF  CODE  AND  PATIENT  REGISTER  NUMBER  (BOTH  ASCENDING) 
VII  MERGE  IN  FINAL  SAS  DATA  SET  (ON  TAPE). 

VIII.  WRITE  FLAT  FILE  TO  TAPE. 


I.  CREATE  SAS  DATASET,  READ  BIOMETRICS  DATA  INTO  IT. 


/******  PARAMETER  ANO  VARIABLE  UPDATE  SECTION:  NO.  1  *************/ 
/*  VERIFY  THAT  BIOMETRICS  INPUT  FILE  LAYOUT  MATCHES  THAT  BELOW.  */ 
/*  IF  NOT,  EDIT  THE  INPUT  STATEMENTS  TO  MATCH  THE  BIOMETRICS  */ 
/*  FILE  LAYOUT.  */ 
/*  CHANGE  TITLE  STATEMENT  TO  REFLECT  CURRENT  YEAR  AND  QUARTER.  */ 

^ ****************************************************************** j 


--  Continued  -- 
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EXHIBIT  B-l:  FY91  ARMY  RWP  ATTACHMENT  PR06RAM 


TITLE  ' FY91  ARMY  RWP  ATTACHMENT  PROGRAM'; 
DATA  TEMPI; 


INFILE  BIOIN; 

INPUT 

@1 

PRN 

SCHAR7.  /* 

PATIENT  REGISTER  NUMBER  */ 

@8 

MTFCODE 

SCHAR6.  /* 

REPORTING  MTF  */ 

@14 

STRING1 

SCHAR13. 

027 

DXI 

SCHAR8.  /* 

DIAGNOSIS  #1  */ 

035 

STRING2 

SCHAR100. 

@135 

STRING3 

SCHAR38. 

0173 

ADMSRC 

SCHAR1.  /* 

SOURCE  OF  ADMISSION  */ 

@174 

DISPOATE 

SCHAR6.  /* 

DATE  OF  DISPOSITION  */ 

@180 

STRING4 

SCHAR100. 

@280 

STRING5 

SCHAR100. 

@380 

STRING6 

SCHAR12. 

@392 

DMISID 

SCHAR4. 

@396 

STRING7 

SCHAR6. 

@402 

DMISBENF 

SCHAR3.  /* 

DMIS  BENEFICIARY  CATEGORY 

@405 

STRING8 

SCHAR6. 

0411 

DMISDAYS 

4.  /* 

REC  TOT  BED/BASS  DAYS  */ 

0415 

STRING9 

SCHAR13. 

0428 

RECDISP 

SCHAR2.  /* 

RECODED  DISP  STATUS  */ 

0502 

DRG 

3. 

@505 

MDC 

SCHAR2. 

@507 

STRING10 

SCHAR31. 

PROC  SORT; 

BY  MTFCODE  PRN; 

/  II.  SET  UP  TEMPORARY  SAS  DATA  SET  WITH  ONLY  VARIABLES 
NEEDED  FOR  RWP  PROCESSING  AND  SETTING  FLAGS. 


DATA  ONE; 

SET  TEMPI  (KEEP-MTFCODE  PRN  DXI  DMISDAYS  DRG  RECDISP  ADMSRC 

DMISID  DMISBENF  MDC) ; 

PROC  SORT; 

BY  DRG; 


==32ass=xza333sas2Ci«3Xizx33sza:ss83rBassz2x==sxr:z3sass3r=== 


MERGE  WITH  DRG  DATASET  CONTAINING  DRG  WEIGHT,  GLOS,  HI_CUT 
LO  CUT. 


--  Continued 
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*  . --DRG  RELATIVE  WEIGHTS  AND  OUTLIER  CUTOFFS . — * 

*  SELECT  SAS  DATASET  CONTAINING  RELATIVE  WEIGHTS  TO  BE  USED  IN  RWP  * 

*  CALCULATIONS.  THIS  DATASET  MUST  CONTAIN  THE  RELATIVE  WEIGHT  (IN  * 

*  THIS  CASE  CHMPWT) ,  GEOMETRIC  MEAN  LENGTH  OF  STAY  (GLOS)  AND  SHORT  * 

*  AND  LONG  STAY  OUTLIER  CUTOFFS  (LO_CUT  AND  HI_CUT)  FOR  EACH  DRG.  * 

*  _ *. 

5 


/******  PARAMETER  AND  VARIABLE  UPDATE  SECTION:  NO.  2  *************/ 
/*  CHANGE  ' D0DV8WT '  TO  NAME  OF  VARIABLE  CONTAINING  DRG  WEIGHTS  */ 
/*  IN  THE  FILE  CONTAINING  THE  APPROPRIATE  DRG  WEIGHTS,  GLOS,  AND*/ 


/*  TRIM  POINTS.  */ 
/*  VERIFY  THAT  THE  LIBRARY  REFERENCE  (FY90)  IS  CORRECT  FOR  */ 
/*  THE  CURRENT  FILE  OF  DRG  WEIGHTS,  GLOS,  AND  TRIM  POINTS.  */ 
/*  VERIFY  THAT  CURRENT  OUTLIER  CREDITING  POLICY  IS  CORRECTLY  */ 
/*  IMPLEMENTED:  2.0  MEANS  200  PERCENT  PER  DIEM  (SHORT  STAYS)  */ 
/*  0.6  MEANS  60  PERCENT  PER  DIEM  (LONG  STAYS)  */ 


I  ****************************************************************** j 

DATA  WEIGHTS;SET  WTIN.FY90(KEEP=DRG  D0DV8WT  CH_GLOS  CHLOCUT  CHHICUTA); 
SS_FAC=2.0; 

L  S  FAC=0 . 6 ; 

RENAME  D0DV8WT  =  CHMPWT; 

PD  WT=ROUND( (D0DV8WT/CHGL0S) , .0001) ; 

SS_WT=ROUND( (PD_WT*SS_FAC) , .0001) ; 

LS_WT=R0UND( (PD_WT*LS_FAC) , .0001 ) ; 

DATA  START; 

MERGE  ON E ( I N= I NB )  WEIGHTS; 

BY  DRG; 

IF  INB; 


IV.  BEGIN  PROCESSING  INDIVIDUAL  BIOMETRICS  RECORDS. 


'  IV. B.  SET  TRANSFER  STATUS  FLAG. 

DRGICAT  -  '1' ; 

IF  ( (RECDISP  =  '02')  OR  (RECDISP  =  '2  '))  THEN  DO; 

IF  ( (ADMSRC  =  '4')  OR 
(ADMSRC  =  '5')  OR 
(ADMSRC  =  '6')  OR 
(ADMSRC  =  '7')  OR 
(ADMSRC  =  '8  ,  OR 
(ADMSRC  =  '9')  OR 
(ADMSRC  =  'T'))  THEN  DO; 

DRGICAT  =  '3'; 

END; 


--  Continued 
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IF  ( (ADMSRC  =  'O')  OR 
(ADMSRC  =  '1')  OR 
(ADMSRC  =  '2')  OR 
(ADMSRC  -  '3')  OR 
(ADMSRC  -  'L')  OR 
(ADMSRC  =  'C'))  THEN  DO; 

DRGICAT  =  '2'; 

END; 

END; 

IF  ( (RECDISP  NE  '02')  AND  (RECDISP  NE  '2  '))  THEN  DO; 

IF  ((ADMSRC  =  '4')  OR 
(ADMSRC  *  '5')  OR 
(ADMSRC  =  '6')  OR 
(ADMSRC  =  '7')  OR 
(ADMSRC  =  '8')  OR 
(ADMSRC  =  '9')  OR 
(ADMSRC  =  'T'))  THEN 
DRGICAT  =  '4'; 

END; 

. INITIALIZE  COUNT  VARIABLES . 

INITIALIZE  ALL  COUNT  AND  RWP  VARIABLES  TO  ZERO.  NOTE  THAT  IN  ALL 

THESE  VARIABLES,  THE  FOLLOWING  ABBREVIATIONS  APPLY: 

SS  =  SHORT  STAY  LSB  =  LONG  STAY  BASE  CREDIT 

LS  =  LONG  STAY  LSO  =  LONG  STAY  OUTLIER  CREDIT 

TR  =  TRANSFER  TRB  =  TRANSFER  BASE  CREDIT 

IN  =  INLIER  TRO  =  TRANSFER  OUTLIER  CREDIT 

BAD=  DRG  469/470 


BBDAYS=DMISDAYS; 

IF  DMISDAYS=0  THEN  BBDAYS=1 ; 


IV.C.  COMPUTE  RWPS  FOR  EACH  BIOMETRICS  RECORD.  IN  THE  COURSE 
OF  THIS  PROCESS,  THE  OUTLIER  STATUS  FLAG  WILL  BE  SET  AS 
WELL. 


0UTCAT='0' ; 


SSC0UNT=0 

LSC0UNT=0 

INCOUNT-O 


--  Continued  -- 
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TR 1 1 CNT =0 ; 

TRISCNT=0; 

TR I LCNT =0 ; 

TRIOICNT=0; 

TRIOSCNT=0; 

TRI0LCNT=0; 

TR0ICNT=0; 

TR0SCNT=0; 

TR0LCNT=0; 

BADCOUNT=0; 

TRIOl ICT=0 ; 

i'WP=0; 

BASERWP=0; 

0UTRWP=0; 

IN_RWP=0; 

SS_RWP=0; 

LSB  RWP=0; 

LS_RWP=0; 

LS0_RWP=0; 

TRI IRWP=0; 

TRISRWP=0; 

TRIBRWP=0; 

TRI LRWP=0; 

TRIOl RWP=0 ; 

TRI0SRWP=0; 

TRI0BRWP=0; 

TRI0LRWP=0; 

TROIRWP=0; 

TR0SRWP=0; 

TROBRWP=0; 

TROLRWP=0; 

SELECT; 


*  . - . -DRGS  469  AND  470 . - - - * 

*  * 

PROCESS  DRGS  469  AND  470  SEPARATELY,  GIVING  ZERO  RWP  CREDIT  AND 
SETTING  BADCOUNT  EQUAL  TO  1. 

* _ _ _ _ _ ★  . 

y 


WHEN  (DRG-469  OR  DRG-470)  DO; 

pup.n . 

BADCOUNT=l ; 

END; 


I 


--  Continued  -- 
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/******  PARAMETER  AND  VARIABLE  UPDATE  SECTION:  NO.  3  *************/ 


/*  DETERMINE  WHETHER  THE  DRGS  LISTED  BELOW,  OR  ANY  OTHER  DRGS  */ 
/*  SHOULD  BE  HANDLED  IN  AN  EXCEPTIONAL  MANNER,  SPECIFICALLY,  */ 
/*  IN  THE  MANNER  OUTLINED  IN  THE  BOX  IMMEDIATELY  BELOW  THIS  */ 
/*  ONE.  */ 


********* ********************************************************* 


. -  DRGS  456,  600,  601,  603,  505,  AND  608  . . . 

PROCESS  DRGS  600,  601,  603,  605,  AND  608  AND  DRG  456  (EXTEN¬ 
SIVE  BURNS  TRANSFERED  SEPARATELY.  IF  NOT  A  LONG  STAY  OUTLIER, 

GIVE  FULL  DRG  CREDIT  (CHMPWT) .  IF  A  LONG  STAY  OUTLIER,  GIVE  FULL 
DRG  CREDIT  PLUS  LONG  STAY  PERDIEM  CREDIT  (LSWT)  FOR  ALL  DAYS  OVER 
THE  LONG  STAY  CUTOFF  POINT  (CHHICUTA). 


WHEN  (DRG=456  OR  DRG=600  OR  DRG=601  OR  DRG=603  OR  DRG-605 
OR  DRG=608)  DO; 

SELECT; 

WHEN  (BBDAYS  LE  CHHICUTA)  DO; 

RWP=CHMPWT; 

BASERWP-RWP; 

IN_RWP=RWP; 

INCOUNT=l ; 

END; 

WHEN  (BBDAYS  GT  CHHICUTA)  DO; 

OUTCAT='2' ; 

LSB_RWP=CHMPWT ; 

L  SORW  P= L  SWT* ( BBDA Y  S-CHHICUTA); 

RWP=LSB_RWP+LSO_RWP ; 

BASERWP=LSB_RWP ; 

OUTRWP=»LSO_RWP; 

LS_RWP=RWP; 

LSCOUNT-1; 

END;  /*  WHEN  */ 

END;  /*  SELECT  */ 

END;  /*  WHEN  DRG-456  OR  600'S  */ 

OTHERWISE  DO; 


FOR  REMAINING  DRGS,  WORKLOAD  CREDIT  DEPENDS  UPON 
DRG I CAT  (1,  2,  3,  OR  4) 


SELECT  (DRGICAT) ; 


--  Continued  -- 
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*- . DRGICAT  =  1  RECORDS . 

?  ? 

FOR  DRG I CAT- 1  (DIRECT  IN,  DISCHARGE  OUT)  GIVE  SHORT  STAY,  INLIER, 

OR  LONG  STAY  CREDIT  DEPENDING  UPON  LENGTH  OF  STAY  AND  CUT  POINTS. 

* _ _ _ _ _ _ _ *. 

* 


WHEN  ('!')  DO; 


FOR  INLIER  CASES,  GIVE  FULL  DRG  CREDIT  (CHMPWT) 


SELECT; 

WHEN  (CHLOCUT  LE  BBDAYS  LE  CHHICUTA)  DO; 
RWP-CHMPWT; 

INRWP-RWP; 

BASERWP=RWP; 

INCOUNT-1; 

END; 


* _ _ _ _ _ _ _ * 

FOR  SHORT  STAY  OUTLIERS  (BBDAYS  <  CHLOCUT)  GIVE  RWP  CREDIT  AS  THE  | 

LESSER  OF  SHORT  STAY  PER  DIEM  OR  FULL  DRG  CREDIT  (CHMPWT).  | 

* . . . . . . . ..*• 

> 


WHEN  (BBDAYS  LT  CHLOCUT)  DO; 
OUTCAT-'l'; 

RWP=MIN(BBDAYS*SS_WT, CHMPWT) ; 
SSRWP-RWP; 

BASERWP-RWP; 

SSCOUNT-1; 

END; 


* _ * 

FOR  LONG  STAY  OUTLIERS,  GIVE  FULL  DRG  CREDIT  (CHMPWT)  PLUS  LONG 
STAY  PER  DIEM  CREDIT  (LS_WT)  FOR  ALL  DAYS  OVER  THE  LONG  STAY  CUT 
OFF  POINT  (CHHICUTA). 

* _ *  • 

- '  y 


WHEN  (BBDAYS  GT  CHHICUTA)  DO; 
OUTCAT-'2' ; 

LSBRWP-CHMPWT ; 

L  SO_RWP- LS_WT* ( BBDAY  S-CHHICUTA); 
RWP  -  SUM(LSB_RWP, LSORWP) ; 
LSRWP-RWP; 

BASERWP-LSB_RWP; 


--  Continued  -- 
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OUTRWP«LSO_RWP; 

LSCOUNT=l ; 

END;  /*  WHEN  LONGSTAY  */ 


END;  /*  SELECT  */ 

END;  /*  WHEN  DRGICAT  =  1  */ 

*  . DRGICAT  =  2  RECORDS . - . . . * 

?  ? 

FOR  DRGICAT=2  (DIRECT  IN,  TRANSFER  OUT),  GIVE  PER  DIEM  (PD_WT) 

UP  TO  FULL  DRG  WEIGHT.  IF  CASE  IS  A  LONG  STAY  OUTLIER,  GIVE  FULL 
DRG  CREDIT  PLUS  LS  PER  DIEM  (LS_WT)  FOR  DAYS  ABOVE  LONG  STAY  CUT. 

*  _ * 


WHEN  ('2')  DO; 
SELECT; 


|  LENGTH  OF  STAY  NOT  GREATER  THAN  LONG  STAY  OUTLIER  CUTOFF 


WHEN  (BBDAYS  LE  CHHICUTA)  DO; 
RWP=M IN { CHMPWT , BBDAYS*PD_WT ) ; 
TROIRWP=RWP; 

BASERWP=RWP; 

TROICNT-1; 

END; 


|  LONG  STAY  OUTLIERS. 


WHEN  (BBDAYS  GT  CHHICUTA)  DO; 
OUTCAT*'2' ; 

TROBRWP-CHMPWT; 

TROLRWP*LS_WT*( BBDAYS -CHHICUTA) ; 
LSRWP  »SUM(TROBRWP,TROLRWP) ; 
RWP-LS_RWP; 

BASERWP-TROBRWP; 

OUTRWP=TROLRWP; 

TROLCNT-1; 

END;  /*  LONG  STAY  */ 

ENO;  /*  SELECT  */ 

END;  /*  WHEN  DRGICAT-2  */ 


--  Continued  - 
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* . - . - . DRGICAT  =  3  RECORDS . . ---* 

?  ? 
FOR  DRGICAT=3  (TRANSFER  IN,  TRANSFER  OUT)  CASES  ARE  CURRENTLY 
HANDLED  EXACTLY  LIKE  DRGICAT=1.  THE  ASSUMPTION  IS  THAT  MOST  OF 
THESE  CASES  OCCUR  IN  MEDICAL  CENTERS,  HAVING  BEEN  TRANSFERED  FROM 
PRIMARY  CARE  FACILITIES  FOR  ACUTE  MEDICAL  CARE  AND  THEN  RETURNED  TO 
ORIGINAL  MTF.  WORKLOAD  CREDIT  IS  IDENTICAL  TO  THAT  OF  AN  IN/OUT 
DISPOSITION.  THESE  CASES  ARE  TRACKED  SEPARATELY  FROM  DRGICAT=1 
CASES  FOR  ANALYSIS  PURPOSES  ONLY. 


WHEN  ('3')  DO; 
SELECT; 


★ 


★ 


INLIERS 


WHEN  (CHLOCUT  LE  BBDAYS  LE  CHHICUTA)  DO; 
RWP=CHMPWT ; 

BASERWP=RWP; 

TRIOIRWP-RWP; 

TRIOICNT=l ; 

END; 


|  SHORT  STAY  OUTLIERS 
★ _ 


* 


*  . 


* 


WHEN  (BBDAYS  LT  CHLOCUT)  DO; 
OUTCAT*' 1 ' ; 

RWP-M I N ( BBOAY  S*  SSWT , CHMPWT ) ; 
TRIOSRWP-RWP; 

BASERWP-RWP; 

TRIOSCNT-1 ; 

END; 


★ _ _ _ _ _ _ _ * 

|  LONG  STAY  OUTLIERS  | 

★ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ *  • 


WHEN  (BBDAYS  GT  CHHICUTA)  DO; 
OUTCAT«'2'; 

TRIOBRWP-CHMPWT ; 

TRIOLRWP*LS_WT*( BBDAYS -CHHICUTA) ; 


--  Continued  -- 
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LSRWP  =  SUM(TRIOBRWP,TRIOLRWP) ; 

RWP=LS_RWP; 

BASERWP=TRIOBRWP; 

OUTRWP=TRIOLRWP ; 

TRI0LCNT=1 ; 


END;  /*  LONG  STAY  */ 

END;  /*  SELECT  */ 

END;  /*  WHEN  DRGICAT-3  */ 

*  - - - DRGICAT  =  4  RECORDS . - - - * 

?  ? 

FOR  DRGICAT=4  (TRANSFER  IN,  DIRECT  OUT)  CASES  ARE  CURRENTLY  HANDLED 
EXACTLY  LIKE  DRGICAT-1.  THESE  CASES  ARE  TRACKED  SEPARATELY  FROM 
DRGICAT  =  1  CASES  FOR  ANALYSIS  PURPOSES. 

*  _  _ _ _ *. 

y 


WHEN  ('4')  DO; 
SELECT; 


* _ 

|  INLIERS 
* _ 


* 


*. 


WHEN  (CHLOCUT  LE  BBDAYS  LE  CHHICUTA)  DO; 
RWP=CHMPWT ; 

TRIIRWP=RWP; 

BASERWP=RWP; 

TRIICNT-1; 

END; 


★ _ _ _ _ _ _ 

|  SHORT  STAY  OUTLIERS 
* _ 


* 


WHEN  (BBDAYS  LT  CHLOCUT)  DO; 
OUTCAT*' 1' ; 

RWP-MIN ( BBDAYS*SS_WT , CHMPWT ) ; 
TRISRWP-RWP; 

BASERWP*=RWP; 

TRISCNT-1 ; 

END; 


* _ * 

|  LONG  STAY  OUTLIERS  | 

* _ _ _ *  • 

—  “  y 


--  Continued  -- 
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WHEN  (BBOAYS  GT  CHHICUTA)  DO; 
OUTCAT='2' ; 

TRIBRWP-CHMPWT ; 

TRILRWP*LS_WT*(BBDAYS -CHHICUTA) ; 
LS_RWP  =  SUM(TRIBRWP,TRILRWP); 
RWP-LSRWP; 

BASERWP-TRIBRWP; 

OUTRWP-TRILRWP; 

TRILCNT-1; 

END;  /*  LONG  STAY  */ 

END;  /*  SELECT  */ 

END;  /*  WHEN  */ 


END;  /*  SELECT  (DRGICAT)  */ 
END;  /*  OTHERWISE  */ 

END;  /*  BIG  SELECT  */ 


/  V.  PRINT  REPORTS  AT  VARIOUS  LEVELS,  TO  AID  IN  QC 


DATA  SUMUP;  SET  START; 

GOODD ISP  =  SUM( INCOUNT , SSCOUNT , LSCOUNT , TROICNT , TROLCNT , TRIOICNT , 
TRIOSCNT,TRIOLCNT,TRIICNT,TRISCNT,TRILCNT) ; 

TOTRWP  =  SUM(BASERWP,OUTRWP) ; 

PROC  SUMMARY  NWAY; 

CLASS  DMISID  MDC  DMISBENF  OUTCAT  DRGICAT; 

VAR  BADCOUNT  INCOUNT  SSCOUNT  LSCOUNT  TROICNT  TROLCNT  TRIOICNT 
TRIOSCNT  TRIOLCNT  TRIICNT  TRISCNT  TRILCNT  GOODDISP  BADCOUNT 
BASERWP  OUTRWP  RWP  IN_RWP  SS_RWP  LSB_RWP  LSO_RWP  LS_RWP  TOTRWP 
TROIRWP  TROLRWP  TRIOIRWP  TRIOSRWP  TRIOLRWP  TRIIRWP  TRISRWP 
TRILRWP  TRISRWP  TROBRWP  TRIOBRWP  TRIBRWP; 

OUTPUT  OUT=RESULTS  SUM-; 

OATA  SUMOUT;  SET  RESULTS; 

PROC  SUMMARY  NWAY; 

CLASS  OUTCAT; 

VAR  TOTRWP  BASERWP  OUTRWP  GOODDISP  BADCOUNT; 

OUTPUT  OUT-OUTCAT1  SUM-; 

PROC  PRINT  DATA-OUTCAT1 ; 

VAR  OUTCAT  TOTRWP  BASERWP  OUTRWP  GOODDISP  BADCOUNT; 

TITLE2  'RWPS  AND  DISPOSITIONS  BY  OUTLIER  STATUS'; 


--  Continued  -- 
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DATA  SUMICAT;  SET  RESULTS; 

PROC  SUMMARY  NWAY ; 

CLASS  DRGICAT ; 

VAR  TOTRWP  BASERWP  OUTRWP  GOODDISP  BADCOUNT; 

OUTPUT  OUT=DRGICATl  SUM*; 

PROC  PRINT  DATA=DRGICAT1 , 

VAR  DRGICAT  TOTRWP  BASERWP  OUTRWP  GOODDISP; 

TITLE2  'RWPS  AND  DISPOSITIONS  BY  TRANSFER  STATUS'; 

DATA  BJNREP;  SET  RESULTS; 

TOTCNT  *  SUM( BADCOUNT, GOODDI ~P) ; 

BSSCNT  =  SUM(SSCOUNT,TRISCNT,TRIOSCNT) ; 

BINCNT  -  SUM( INCOUNT, TRI ICNT , TRIOICNT) ; 

BLSCNT  *  SUM(LSCOUNT,TRILCNT,TRIOLCNT) ; 

BTRCNT  =  SUM(TROICNT,TROLCNT) ; 

BINRWP  =  SUM(IN_RWP,TRIIRWP,TRIOIRWP) ; 

BSSRWP  =  SUM(SS_RWP,TRISRWP,TRIOSRWP) ; 

BLSBRWP  =  SUM(LSB_RWP,TRIBRWP,TRIOBRWP) ; 

BLSORWP  *  SUM(LSO_RWP,TRILRWP,TRIOLRWP) ; 

BTRBRWP  =  SUM(TROBRWP,TROIRWP) ; 

BTRLRWP  =  TROLRWP; 

PROC  SUMMARY  NWAY; 

CLASS  DMISID; 

VAR  TOTRWP  BSSCNT  BSSRWP  BLSCNT  BLSBRWP  BLSORWP  BTRCNT  BTRBRWP 
TOTCNT  BADCOUNT  BTRLRWP  BINCNT  BINRWP  GOODDISP; 

OUTPUT  OUT-BJNREP1  SUM=; 

PROC  PRINT  0ATA=BJNREP1 ; 

VAR  DMISID  TOTCNT  BSSCNT  BSSRWP  BINCNT  BINRWP  BLSCNT  BLSBRWP 
BLSORWP  BTRCNT  BTRBRWP  BTRLRWP  BADCOUNT  GOODDISP  TOTRWP; 
TITLE2  'RWPS  AND  DISPOSITIONS  BY  DMISID  AND  OUTLIER  STATUS'; 

PROC  SUMMARY  NWAY  DATA-RESULTS; 

CLASS  MDC; 

VAR  TOTRWP  BASERWP  OUTRWP  GOODDISP  BADCOUNT; 

OUTPUT  OUT=MDCREP  SUM*; 

PROC  SUMMARY  NWAY  DATA=RESULTS; 

CLASS  DMISBENF; 

VAR  TOTRWP  BASERWP  OUTRWP  GOODDISP  BADCOUNT; 

OUTPUT  OUT-BENFREP  SUM*; 

PROC  PRINT  DATA*MDCREP; 

VAR  MDC  TOTRWP  BASERWP  OUTRWP  GOODDISP  BADCOUNT; 

TITLE2  'RWPS  AND  DISPOSITIONS  BY  MDC'; 

PROC  PRINT  DATA-BENFREP; 

VAR  DMISBENF  TOTRWP  BASERWP  OUTRWP  GOODDISP  BADCOUNT; 

TITLE2  'RWPS  AND  DISPOSITIONS  BY  DMIS  BENEFICIARY  TYPE'; 


--  Continued 
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/  VI.  SORT  BY  MTFCOOE  AND  PRN 


DATA  TWO; SET  START (KEEP=MTFCODE  PRN  BASERWP  OUTRWP  OUTCAT  DRGICAT) ; 

PROC  SORT; 

BY  MTFCODE  PRN; 


/  VII.  MERGE  IN  FINAL  SAS  DATASET  (ON  TAPE). 

DATA  TEMP3; 

MERGE  TEMPI  TWO; 

BY  MTFCODE  PRN; 


1  VIII.  WRITE  TO  FLAT  FILE  ON  TAPE. 

/******  PARAMETER  AND  VARIABLE  UPDATE  SECTION:  NO.  4  *************/ 
/*  IF  INPUT  FILE  LAYOUT  HAS  CHANGED,  MAKE  CORRESPONDING  CHANGES  */ 
/*  TO  PUT  STATEMENTS  BELOW.  */ 

I  ****************************************************************** J 

FILE  BIOOUT ; 

PUT 


@1 

PRN 

SCHAR7.  /* 

PATIENT  REGISTER  NUMBER  */ 

08 

MTFCODE 

SCHAR6.  /* 

REPORTING  MTF  */ 

@14 

STRING! 

SCHAR13. 

027 

DX1 

SCHAR8.  /* 

DIAGNOSIS  #1  */ 

@35 

STRING2 

SCHAR100. 

@135 

STRING3 

SCHAR38. 

0173 

ADMSRC 

SCHAR1.  /* 

SOURCE  OF  ADMISSION  */ 

@174 

DISPDATE 

SCHAR6.  /* 

DATE  OF  DISPOSITION  */ 

@180 

STRING4 

SCHAR100. 

@280 

STRING5 

SCHAR100. 

@380 

STRING6 

SCHAR12. 

@392 

DMISID 

SCHAR4. 

@396 

STRING7 

SCHAR6. 

@402 

DMISBENF 

SCHAR3.  /* 

DMIS  BENEFICIARY  CATEGORY  */ 

@405 

STRING8 

SCHAR6. 

@411 

DMISDAYS 

4.  /* 

REC  TOT  BED/BASS  DAYS  */ 

@415 

STRING9 

SCHAR13. 

@428 

RECDISP 

SCHAR2.  /* 

RECODED  DISP  STATUS  */ 

@502 

DRG 

3. 

@505 

MDC 

SCHAR2. 

@507 

STRING10 

SCHAR31 . 

@538 

BASERWP 

9.4 

--  Continued  -- 
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3547  OUTRWP  9.4 
3556  OUTCAT  $CHAR1 . 
@557  DRGICAT  SCHARl. 


PROC  SUMMARY  NWAY; 

CLASS  DMISID; 

VAR  BASERWP  OUTRWP; 

OUTPUT  OUT-F INSUM  SUM-; 

DATA  F INRWP ; SET  F INSUM; 

FINTOT  =  SUM(BASERWP,OUTRWP) ; 

F INPLUS  -  BASERWP+OUTRWP; 

PROC  PRINT  DATA-F INRWP; 

VAR  DMISID  FINTOT  FINPLUS  BASERWP  OUTRWP; 


I 
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//CSRTMR  JOB  (RAMS), 'VECTOR  RESEARCH' ,CLASS=F,MSGCLASS=X, 

//  MSGLEVEL=(1 ,1),TIME=(20,0) ,NOTIFY=CSR 

/♦JOBPARM  LINES=25 

//  EXEC  SAS606 , WORK= ' 100, 100' , SORT=10, REGI0N=4096K 

//BIOIN  DD  DSN=HAF. CON. VRI.MYT. NAVY. GI23491 .SIDR. VA,OISP=SHR 

//WTIN  DD  DSN=CSR.CHTRIMPT. FY90V8 . SD2 ,DISP=SHR 

// 

//BIOOUT  DD  DSN=HAF. CON. VRI.TMR. SIDR. NAVY. CHAMPRWP. FY91 , 

//*  DISP=(NEW, DELETE), 

//  DISP=(NEW,CATLG, DELETE), 

//  LABE  L= ( 1 , SL, , , EXPDT=99000) , 

//*  LABEL* ( 1 , SL) , 

//  UNIT=TAPE, 

//  DCB=(LRECL=558, RECFM=FB,BLKSIZE=23436) 

******  PROGRAM  NAME:  HAF. CON. VRI .TMR. SIDR. RWPNAVY.FY91  ******; 


i 
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EXHIBIT  B-3:  FY91  AIR  FORCE  JCL  FOR  RWP  ATTACHMENT  PROGRAM 


//CSRTMR  JOB  (RAMS) , 'VECTOR  RESEARCH' ,CLASS=F,MSGCLASS=X, 

//  MSGLEVEL=(1, 1),TIME=(20,0) ,NOTIFY=CSR 

/*JOBPARM  L I NES=2 5 

//  EXEC  SAS606,WORK=' 100,100' ,SORT=10,REGION=4096K 

//BIOIN  DD  DSN=HAF . CON . VRI . MYT . USAF . G1 23491 . SIDR. VA, DISP=SHR 
//WTIN  DD  DSN=CSR.CHTRIMPT . FY90V8 . SD2 ,DISP=SHR 

// 

//8I00UT  DD  DSN=HAF. CON. VRI. TMR. SIDR. USAF. CHAMPRWP. FY91 , 

//*  DISP=(NEW, DELETE), 

//  DISP=(NEW,CATLG, DELETE), 

//  LABELS  1 ,SL, , , EXPO' ’99000) , 

//*  LABEL-(1,SL), 

//  UNIT- TAPE. 

//  DCB=(LRECL=558, RECFM=FB,BLKSIZE=23436) 

******  PROGRAM  NAME:  HAF . CON . VRI . TMR . S IDR . RWPUSAF . FY91  ******; 


I 
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EXHIBIT  B-4:  FY91  ARMY  RWP  QC  PROGRAM 

//CSRTMR  JOB  (RAMS),' VECTOR  RESEARCH' ,CLASS=C,MSGCLASS=X,MSGLEVEL=(1, 1) , 

//  TIME=*(10,0)  ,NOTIFY=CSR 

//  EXEC  SAS606, WORK-' 100, 100' ,S0RT=6,REGI0N=4096K 

//BIOIN  DO  DSN-HAF . CON . VR I . TMR . S IDR . ARMY . CHAMPRWP . FY91 , D I SP=SHR 

******  PROGRAM  NAME:  HAF . CON . VR I . TMR . S I DR . RWPARMQC . PR0G9 1  ******; 


TITLE  ' FY91  ARMY  BIOMETRICS  TABULATION  QC  PROGRAM'; 
DATA  TEMPI; 

INFILE  BIOIN; 

INPUT 


01 

PRN 

SCHAR7.  /* 

PATIENT  REGISTER  NUMBER  */ 

08 

MTFCODE 

SCHAR6.  /* 

REPORTING  MTF  */ 

027 

DX1 

SCHAR8.  /* 

DIAGNOSIS  #1  */ 

0173 

ADMSRC 

SCHARl.  /* 

SOURCE  OF  ADMISSION  */ 

0,74 

DISPDATE 

SCHAR6.  /* 

DATE  OF  DISPOSITION  */ 

@392 

DMISID 

SCHAR4. 

0402 

DMISBENF 

SCHAR3 .  /* 

DMIS  BENEFICIARY  CATEGORY  */ 

@411 

DMISDAYS 

4.  /* 

REC  TOT  BED/BASS  DAYS  */ 

@428 

RECDISP 

SCHAR2 .  /* 

RECODED  DISP  STATUS  */ 

@502 

DRG 

3. 

@505 

MDC 

5CHAR2. 

0538 

BASERWP 

9.4 

@547 

OUTRWP 

9.4 

@556 

OUTCAT 

SCHARl. 

@557 

DRGICAT 

SCHARl. 

DATA  FIRSTSUM;  SET  TEMPI  (KEEP=DMISID  BASE RWP  OUTRWP); 
PROC  SUMMARY  NWAY ; 

CLASS  DMISID; 

VAR  BASERWP  OUTRWP; 

OUTPUT  OUT=FIRSTRWP  SUM=8ASE1  0UT1; 


DATA  FIRSTREP;  SET  FIRSTRWP; 

F I RSTTOT =SUM ( BASE  1 , 0UT1 ) ; 

PROC  PRINT ; 

VAR  DMISID  FIRSTTOT  BASE1  0UT1; 

TITLE2  'TOTAL  RWPS,  8ASE  RWPS,  AND  OUTLIER  RWPS  BY  DMISID'; 

DATA  SUMMS;  SET  TEMPI  (KEEP=DMISIG  MDC  DRG  BASERWP  OUTRWP 

DRGICAT  DMISBENF  OUTCAT) ; 

DISPS  =  1; 

TOTRWP  =  SUM(BASERWP, OUTRWP); 


--  Continued  -- 


« 
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EXHIBIT  B-4:  FY91  ARMY  RWP  QC  PROGRAM 

PROC  SUMMARY  NWAY  DATA=SUMMS; 

CLASS  OUTCAT; 

VAR  BASERWP  OUTRWP  TOTRWP  DISPS; 

OUTPUT  OUT=SUMMOUT  SUM=; 

PROC  PRINT  OATA=SUMMOUT ; 

VAR  OUTCAT  TOTRWP  BASERWP  OUTRWP  DISPS; 

TITLE2  'RWPS  AND  DISPOSITIONS  BY  OUTLIER  STATUS'; 

PROC  SUMMARY  NWAY  DATA=SUMMS; 

CLASS  DRGICAT ; 

VAR  BASERWP  OUTRWP  TOTRWP  DISPS; 

OUTPUT  OUT=SUMMICAT  SUM=; 

PROC  PRINT  DATA=SUMMICAT ; 

VAR  DRGICAT  TOTRWP  BASERWP  OUTRWP  DISPS; 

TITLE2  'RWPS  AND  DISPOSITIONS  BY  TRANSFER  STATUS'; 

PROC  SUMMARY  NWAY  DATA=SUMMS ; 

CLASS  MDC; 

VAR  BASERWP  OUTRWP  TOTRWP  DISPS; 

OUTPUT  OUT=SUMMMDC  SUM=; 

PROC  PRINT  DATA=SUMMMDC  ; 

VAR  MDC  TOTRWP  BASERWP  OUTRWP  DISPS; 

TITLE2  'RWPS  AND  DISPOSITIONS  BY  MDC'; 

PROC  SUMMARY  NWAY  DATA=SUMMS ; 

CLASS  DMISBENF ; 

VAR  BASERWP  OUTRWP  TOTRWP  DISPS; 

OUTPUT  0UT=SUMM8ENF  SUM=; 

PROC  PRINT  DATA=SUMMBENF ; 

VAR  DMISBENF  TOTRWP  BASERWP  OUTRWP  DISPS; 

TITLE2  'RWPS  AND  DISPOSITIONS  BY  DMIS  BENEFICIARY  TYPE'; 

DATA  ONE; 

SET  TEMPI  (KEEP=DMISID  MDC  DRG  BASERWP  OUTRWP  OUTCAT 

DRGICAT  DMISBENF); 

DISPS  =  1; 

TOTRWP  =  SUM(BASERWP, OUTRWP); 

DATA  SUMIN;  SET  ONE; 

IF  (OUTCAT  =  'O')  AND  (BASERWP  GT  0); 

PROC  SUMMARY  NWAY; 

CLASS  DMISID; 

VAR  BASERWP  DISPS; 

OUTPUT  OUT= INSUM  SUM=INRWP  INCNT; 

DATA  SUMSS;  SET  ONE; 

IF  (OUTCAT  »  '1')  AND  (BASERWP  GT  0); 


--  Continued  -- 
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EXHIBIT  B-4:  FY91  ARMY  RWP  QC  PROGRAM 

PRCC  SUMMARY  NWAY ; 

CLASS  DMISID; 

VAR  BASERWP  DISPS; 

OUTPUT  OUT=SSSUM  SUM-SSRWP  SSCNT; 

DATA  SUMLS;  SET  ONE; 

IF  (OUTCAT  -  '2')  AND  (BASERWP  GT  0); 

PROC  SUMMARY  NWAY; 

CLASS  DMISID; 

VAR  BASERWP  OUTRWP  DISPS  TOTRWP; 

OUTPUT  OUT=LSSUM  SUM=LSBRWP  LSLRWP  LSCNT; 

DATA  COMETO; 

MERGE  INSUM  SSSUM  LSSUM; 

BY  DMISID; 

TOTALRWP  *  SUM( INRWP.SSRWP, LS8RWP, LSLRWP, ) ; 

GOODDISP  -  SUM(INCNT, SSCNT. LSCNT); 

PROC  PRINT- 

VAR  DMISID* TOTALRWP  GOODDISP  INRWP  INCNT  SSRWP  SSCNT  LSBRWP 
LSLRWP  LSCNT- 

TITLE2  ' RWPS  AND  DISPOSITIONS  BY  DMISID  AND  OUTLIER  STATUS' 
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EXHIBIT  B-5:  FY91  NAVY  JCl  FOR  RWP  QC  PROGRAM 


//CSP.TMR  JOB  (RAMS) , 'VECTOR  RESEARCH' ,CLASS=C,MSGCLASS=X,MSGLEVEL=(1 ,  1) , 

//  TIME=( 10,0) , NOTIFY=CSR 

//  EXEC  SAS606,WORK=' 100, 100' ,SORT=6,REGION=4096K 

//BIOIN  DO  DSN=HAF. CON. VRI .TMR.SIDR. NAVY. CHAMPRWP. FY91 ,DISP=SHR 

******  PROGRAM  NAME:  HAF. CON. VRI .TMR.SIDR. RWPNAVQC . PR0G91  ******; 


i 
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EXHIBIT  B-6:  FY9I  AIR  FOP^E  JCL  FOR  RWP  QC  PROGRAM 


//CSRTMR  JOB  (RAMS), 'VECTOR  RESEARCH' ,CLASS=C,MSGCLASS=X,MSGLEVEl=(l , 1) , 

//  TIME=( 10,0) , NOT  I FV =CSR 

//  EXEC  SAS606,W0RK=' 100,100' ,S0RT=6,REGI0N=4096K 

//BIOIN  DO  DSN=HAF.CON. VRI .TMR. S1DR.USAF. CHAMPRWP. FY91 ,DISP=SHR 

******  PROGRAM  NAME:  HAF . CON . VRI . TMR . S IDR . RWPAIRQC . PR0G91  ******; 


i 
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EXHIBIT  B-7 :  TRIM  POINT  QC  PROGRAM 


//CSRTMR  JOB  (RAMS ) , ' VRI ' , CLASS=C , MSGCLASS=X,M$GLEVEL= (1,1), 

//  MSGLEVEL-( 1,1) .TIME- (10,0), NOTIFY-CSR 

//  EXEC  SAS606 

//BIOIN  DD  DSN=HAF . CON . VRI . TMR . CHAMPUS . TRIMPTS . VERS8 . SOS , DISP=SHR 
*********  PROGRAM  NAME:  HAF. CON. VRI . TMR. TRIMPTQC . PROG  **********; 

OPTIONS  PAGESIZE  =  45  NOOATE  NONUMBER 
LINESIZE  *  175; 


DATA  TEMPI;  SET  BIOIN. FY90; 
PER_DIEM  =  D0DV8WT/CH_GL0S ; 
SSWGHT  =  PERDIEM  *  2; 
LSWGHT  =  PERDIEM  *  .6; 
RENAME  D0DV8WT  =  DRGWGHT 
CHGLOS  =  GLOS 
CHLOCUT  =  LO  CUTPT 
CHHICUTA  =  HI  CUTPT; 


PROC  SORT; 

BY  DRG ; 

PROC  PRINT  DATA-TEMP1; 

VAR  CRGTITLE  DRG_WGHT  GLOS  PERDIEM  SS_WGHT  LSWGHT  LOCUTPT 
HICUTPT ; 

ID  DRG; 

TITLE1  '  '; 

TITLE2  '  '; 

TITLE3  'CHAMPUS  VERSION  8  DRGS  AND  OUTLIER  CRITERIA'; 

F00TN0TE1  "SOURCE:  DEFENSE  MEDICAL  INFORMATION  SYSTEMS  (DMIS) 

&SYSDATE” ; 

F00TN0TE2  '  '; 


« 


I 
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EXHIBIT  B-8:  BEODAY  QC  PROGRAM 

//CSRTMR  JOB  (RAMS) , ' VRI ' ,CLASS=C,MSGCLASS=X,MSGLEVEL=(1 , 1) , 

//  TIME= (10,0) ,NOTIFY=CSR 

//  EXEC  SAS606 , WORK* '100,100', SORT-10 , REG I0N=4096K 

//BIOIN  DO  DSN-HAF. CON. VRI. TMR.SIDR. ARMY. CHAMPRWP.FY91 ,DISP=SHR 

//  DO  DSN-HAF. CON. VRI. TMR. SIDR. NAVY. CHAMPRWP.FY91,DISP=SHR, 

//  W  i =AFF— BIOIN 

//  DD  Diii-HAF.CON. VRI .TMR. SIDR. USAF.CHAMPRWP. FY91 ,DISP=SHR, 

//  UNIT-AFF-BIOIN 

//BI0IN2  DD  DSN=HAF . CON . VRI . TMR . CHAMPUS . TRIMPTS . VERS8 . SDS , DISP=SHR 
*********  PROGRAM  NAME:  HAF. CON. VRI. TMR. BEDDAYQC. PROG  *********; 
OPTIONS  PAGESIZE  =  45  NONUMBER  NODATE 
LINESIZE  =  175; 

PROC  FORMAT; 

PICTURE  PCTWO  LOW  -  <0  =  '0009.99%'  (PREFIX  =  '-') 

0  -  HIGH  =  '0009.99%'; 

DATA  TEMPI; 

INFILE  BIOIN; 

INPUT 

@392  DMISID  SCHAR4. 

@411  BEDDAYS  4. 

@502  DRG  3. 


PROC  SUMMARY  NWAY  DATA-TEMP1; 

CLASS  DRG; 

VAR  BEDDAYS* 

OUTPUT  0UT-TEMP2  N-DISP  SUM=  MEAN=ALOS; 

PROC  DATASETS  LIBRARY=WORK; 

DELETE  TEMPI; 

DATA  TEMP3 ;  SET  BI0IN2.FY90(KEEP=DRG  DRGTITLE) ; 
PROC  SORT; 

BY  DRG; 

PROC  SORT  DATA-TEMP2; 

BY  DRG; 

DATA  DRGBASE ; 

MERGE  TEMP2( IN-INDRG)  TEMP3; 

BY  ORG;  IF  INORG; 

DUMMY- 1; 


--  Continued 
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EXHIBIT  B-8:  BEDDAY  QC  PROGRAM 

PRCC  SUMMARY  NWAY  DATA-DRGBASE ; 
war  RFnnAYS  dkp- 

OUTPUT  OUT-TOTRES1  SUM=TOT_DAYS  TOT_DISP; 

DATA  TOTRES2 ;  SET  TOTRES1 ; 

DUMMY- 1; 


DATA  COMBI; 

MERGE  DRGBASE  TOTRES2; 

BY  DUMMY; 

PCTTOTDP  -  DISP/TOTDISP  *  100; 
PCTTOTDY  -  BEDDAYS/TOT_DAYS  *  100; 

PROC  SORT  DATA-C0MB1 ; 

BY  DUMMY  DESCENDING  BEDDAYS; 

DATA  OUTPUT; 

SET  COMBI; 

BY  DUMMY  DESCENDING  BEDDAYS; 

IF  FIRST. DUMMY  THEN  DO; 

CUMDAY  -  0; 

CUMDSP  -  0; 

END; 

RETAIN  CUMDAY  CUMDSP; 

CUMDAY  -  CUMDAY  +  PCTTOTDY; 
CUMDSP  -  CUMDSP  +  PCTTOTDP; 


PROC  PRINT  DATA-OUTPUT; 

VAR  DRGTITLE  DISP  BEDDAYS  ALOS 

PCTTOTDY  PCTTOTDP  CUMDAY  CUMDSP; 

ID  DRG; 

TITLE1  '  '; 

TITLE2  '  '; 

TITLE3  '  '; 

TITLE4  ' FY91  TOTAL  ALL  SERVICES'; 

TITLE5  'TOTAL  DISPOSITIONS  ANO  BEDDAYS  FOR  EACH  DRG'; 

TITLE6  'SORTED  ON  DESCENDING  BEDDAYS'; 

TITLE7  '(CHAMPUS  VERSION  8  DRGS  AND  OUTLIER  CRITERIA)'; 
FOOTNOTE  "SOURCE;  OEFENSE  MEOICAL  INFORMATION  SYSTEMS  (DMIS) 

&SYSDATE" ; 

F00TN0TE2  '  '; 

FORMAT 

PCTTOTDY  PCTWO . 

PCTTOTDP  PCTWO. 

CUMDAY  PCTWO. 

CUMDSP  PCTWO.; 
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EXHIBIT  B-9:  CROSS  TABULATION  QC  PROGRAM 

//CSRTMR  JOB  (RAMS) , 'VRI ' ,CLASS=C,MSGCLAS$=X,MSGLEVEL=( 1 , 1) , 

//  TIME=(10,0) ,NOTIFY=CSR 

//  EXEC  SAS606, WORK- ' 100, 100' ,S0RT=10, REGI0N=4096K 

//BIOIN  DO  DSN-HAF. CON. VRI. TMR.SIDR. ARMY. CHAMPRWP. FY91 ,DISP=SHR 

//  DO  DSN-HAF. CON. VRI. TMR.SITR. NAVY. CHAMPRWP. FY91 ,DISP=SHR, 

//  UNIT=AFF=BIOIN 

//  DD  DSN-HAF. CON. VRI. TMR.SIDR.USAF. CHAMPRWP. FY91.DISP-SHR, 

//  UNIT-AFF-BIOIN 

*********  PROGRAM  NAME:  HAF.CON. VRI .TMR. CROSSTAB. PROG  *********; 


OPTIONS  L INES I ZE=1 75  NONUMBER  NODATE 
PAGES  I ZE—45 ; 


DATA  TEMPI; 


INFILE 

BIOIN; 

INPUT 

@14 

EFLAG 

SCHAR1. 

@204 

CROFLAG 

SCHAR1. 

@204 

CLINAREA 

SCHAR2. 

@402 

DMISBENF 

SCHAR3. 

@409 

DMISSEX 

SCHARI . 

@410 

DM I SAGE 

SCHAR1. 

@411 

DMISDAYS 

4. 

@502 

DRG 

3. 

@505 

MDC 

JCHAR2. 

@538 

BASERWP 

9. 

@547 

OUTRWP 

9. 

TOTRWP  =  SUM(BASERWP,OUTRWP) ; 

T0T_DISP-1; 

IF  (CROFLAG  =  'E')  OR  ( ( EFLAG  NE  'D')  AND  (EFLAG  NE  'V')) 
THEN  DELETE; 

IF  (DRG  EQ  469)  OR  (DRG  EQ  470)  THEN  BAD_D I S P=TOT_D ISP; 

PROC  SUMMARY  NWAY  DATA-TEMP1 ; 

CLASS  DMISBENF; 

VAR  TOTDISP  BADDISP  TOTRWP  DMISDAYS; 

OUTPUT  0UT-CH91BENF  SUM-  ; 

PROC  SUMMARY  NWAY  DATA-TEMP1 ; 

CLASS  MDC * 

VAR  TOTDISP  BAD_DISP  TOT_RWP  DMISDAYS; 

OUTPUT  0UT-CH91MDC  SUM-  ; 


i 


--  Continued 
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EXHIBIT  B-9 :  CROSS  TABULATION  QC  PROGRAM 


PROC  SUMMARY  NWAY  DATA=TEMP1 ; 

CLASS  CLINAREA; 

VAR  TOTDISP  BADDISP  TOT_RWP  OMISDAYS; 
OUTPUT  OUT=CH91CLN  SUM-  ; 

PROC  SUMMARY  NWAY  DATA-TEMP1 ; 

CLASS  DMISSEX  DMISAGE; 

VAR  TOTDISP  BADDISP  TOT_RWP  DMISDAYS; 
OUTPUT  OUT=CH91AGE  SUM=  ; 


PROC  PRINT  DATA-CH91BENF; 

VAR  TOTDISP  BADDISP  TOT_RWP  DMISDAYS; 

ID  DMISBENF ; 

TITLE1  ' 

TITLE2  ' 

TTTI Cl  ' CVQ1  THTfil  fill  ^FCUTPP^'* 

TITLE4  'TOTAL  DISPOSITIONS,  BAD  DISPOSITIONS,  TOTAL  RWPS  AND'; 
TITLES  'BED  DAYS  FOR  EACH  BENEFICIARY  CATEGORY'; 

FOOTNOTE1  "SOURCE:  DEFENSE  MEDICAL  INFORMATION  SYSTEMS  (DMIS) 

&SYSDATE" ; 


FOOTNOTE2  '  ' 


PROC  PRINT  DATA-CH91MDC; 

VAR  TOTDISP  BADDISP  TOT_RWP  DMISDAYS; 

ID  MDC ; 

TITLE1  '  '; 

TITLE2  '  '; 

TITLE3  ' FY91  TOTAL  ALL  SERVICES'; 

TITLE4  'TOTAL  DISPOSITIONS,  BAD  DISPOSITIONS,  TOTAL  RWPS  AND'; 
TITLES  'BED  DAYS  FOR  EACH  MAJOR  DIAGNOSTIC  CATEGORY'; 

FOOTNOTE  1  "SOURCE:  DEFENSE  MEDICAL  INFORMATION  SYSTEMS  (DMIS) 

&SYSDATE" ; 


FOOTNOTE2  '  ' 


PROC  PRINT  DATA-CH91CLN; 

VAR  TOTDISP  BADDISP  TOT_RWP  DMISDAYS; 

ID  CLINAREA; 

TITLE1  '  '; 

TITLE2  '  '; 

TITLE3  'FY91  TOTAL  ALL  SERVICES'; 

TITLE4  'TOTAL  DISPOSITIONS,  BAD  DISPOSITIONS,  TOTAL  RWPS  AND'; 
TITLE5  'BED  DAYS  FOR  EACH  CLINICAL  AREA'; 

FOOTNOTE  1  "SOURCE:  DEFENSE  MEDICAL  INFORMATION  SYSTEMS  (DMIS) 

&SYSDATE" ; 


FOOTNOTE2  '  ' 


--  Continued 
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EXHIBIT  B-9:  CROSS  TABULATION  QC  PROGRAM 


PROC  PRINT  DATA=CH91AGE; 

VAR  DMISSEX  TOT_OISP  BAD_DISP  TOT_RWP  DMISDAYS; 

ID  DMISAGE; 

TITLE1  ' 

TITLE2  ' 

TITLE3  ' FY91  TOTAL  ALL  SERVICES'; 

TITLE4  'TOTAL  DISPOSITIONS,  BAD  DISPOSITIONS,  TOTAL  RWPS  AND'; 
TITLES  'BED  DAYS  FOR  EACH  AGE-GENDER  CATEGORY'; 

FOOTNOTE1  "SOURCE:  DEFENSE  MEDICAL  INFORMATION  SYSTEMS  (DMIS) 

&SYSDATE" ; 


FOOTNOTE2  '  ' 
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EXHIBIT  B-10:  LOS  PERCENTILE  PROGRAM 

//CSRTMR 

// 

// 

//BIOIN 

// 

// 

// 

// 

//WT IN 

**********  PROGAM  NAME:  HAF. CON. VRI.TMR.LOSPCTQC. PROG  **********; 

OPTIONS  PAGES  I ZE  =  45  NONUMBER  NODATE 
LINESIZE  =  175; 

PROC  FORMAT; 

PICTURE  PCTWO  LOW-HIGH»'009.99%'; 


JOB  (RAMS) , 'VRI ' ,CLASS=C,MSGCLASS=X,MSGLEVEL=(1 , 1) , 

TIME=( 10,0) ,NOTIFV=CSR 

EXEC  SAS606,WORK='100,100'  ,S0RT=10,REGI0N=4096K 
00  OSN=HAF . CON . VR I . TMR . S IDR . ARMY . CHAMPRWP . FY9 1 , D I SP=SHR 
DD  DSN=HAF . CON . VRI . TMR . S IOR . NAVY . CHAMPRWP . F Y9 1 , 0 I SP=SHR , 
UNIT=AFF=BIOIN 

DD  DSN=HAF . CON . VRI . TMR . S IDR . USAF . CHAMPRWP . F Y9 1 , D I SP=SHR , 
UNIT=AFF=BIOIN 

DD  DSN=HAF . CON . VRI . TMR . CHAMPUS . TRIMPTS . VERS8 . SDS , D I SP=SHR 


DATA  TEMPI; 
INFlLE  BIOIN; 


INPUT 

9392  DMISID 
@411  DMISDAYS 

@502  DRG 

PROC  SORT; 

BY  DRG; 


SCHAR4 

4!  /*  REC  TOT  BED/BASS  DAYS  */ 
3. 


PROC  UNIVARIATE  DATA-TEMP1  NOPRINT; 

VAR  DMISDAYS; 

BY  DRG; 

OUTPUT  0UT=L0SPTS1  N=DISP  MEAN=ALOS  STD=SD  MIN=MINLOS 

MAX=MAXLOS  P10=P10  Q1=P25  MEDIAN=P50  Q3=P75  P90=P90; 

PROC  SORT  0ATA=L0SPTS1 ; 

BY  DRG; 

°ATA  ACDmAME ; 

MERGE  L0SPTS1 ( IN= INLOS )  WTIN.FY90; 

BY  DRG; 

IF  INLOS; 

CV  =  SD/ALOS; 

KEEP  DRG  DRGTITLE  D1SP  P10  P25  P50  P75  P90  MINLOS  MAXLOS 
ALOS  SD  CV; 


--  Continued 
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EXHIBIT  B-10:  LOS  PERCENTILE  PROGRAM 

PRCC  PRINT  DATA=ADDNAME; 

VAR  DRGTITLE  DISP  P10  P25  P50  P75  P90  MINLOS  MAXLOS 
ALOS  SD  CV; 

ID  DRG; 

TITLE1  ' 

TITLE2  ' 

TITLE3  ' 

TITLE4  '  FY91  TOTAL  ALL  SERVICES'; 

TITLE5  'TOTAL  DISPOSITIONS  AND  LOS  PERCENTILES  FOR  EACH  DRG'; 
FOOTNOTE  "SOURCE:  DEFENSE  MEDICAL  INFORMATION  SYSTEMS  (DMIS) 

&SYSDATE" ; 

FOOTNOTE2  '  '; 


< 


B-31 


EXHIBIT  B-ll :  LOS  FREQUENCY  PROGRAM 

//CSRTMR  JOB  (RAMS) , ' VR I ' ,CLASS=C,MSGCLASS=X,MSGLEVEL=( i , 1 ) , 

//  T IME= (10,0) , NOT  I FY=CSR 

//  EXEC  SAS606,W0RK=' 100, 100' , S0RT=10, REGION=4096K 

//BIOIN  DD  DSN=HAF . CON . VRI . TMR . S IDR . ARMY . CHAMPRWP . FY91 , D I SP=SHR 
//  DD  DSN-HAF. CON. VRI. TMR. SIDR. NAVY. CHAMPRWP. FY91,DISP=SHR, 

//  UN IT=AFF=B 10 I N 

//  DD  DSN=HAF. CON. VRI. TMR. SIDR.USAF. CHAMPRWP. FY91 ,DISP=SHR, 

//  UNIT=AFF=BIOIN 

*********  PROGRAM  NAME:  HAF. CON. VRI .TMR. LOSFRQQC. PROG  *********; 

OPTIONS  LINESIZE=175  NODATE  NONUMBER 
PAGES IZE=45 ; 


DATA  TEMPI; 


INFILE 

BIOIN; 

INPUT 

@14 

EFLAG 

$CHAR1. 

@204 

CROFLAG 

SCHAR1. 

@204 

CLINAREA 

$CHAR2 . 

@402 

DMISBFNF 

SCHAR3. 

@409 

DMISSEX 

SCHAR1 . 

@410 

DMISAGE 

SCHAR1. 

@411 

LOS 

SCHAR4. 

@411 

DMISDAYS 

4. 

@502 

DRG 

3. 

@505 

MDC 

SCHAR2. 

@538 

BASERWP 

9.4 

@547 

OUTRWP 

9.4 

TOTRWP 

=  SUM(BASERWP, OUTRWP); 

T0T_DISP=1 ; 

IF  (CROFLAG  =  'E')  OR  { (EFLAG  NE  'D')  AND  (EFLAG  NE  'V')) 
THEN  DELETE; 

IF  (DRG  EQ  469)  OR  (DRG  EQ  470)  THEN  BAD_DISP=TOT_DISP; 


PROC  SUMMARY  NWAY  DATA= TEMPI ; 

CLASS  LOS; 

VAR  TOTDISP  BADDISP  TOT_RWP  DMISDAYS; 
OUTPUT  0UT=TEMP2  SUM=  ; 

DATA  TEMP3 ;  SET  TEMP2; 

GOODDISP  =  TOTDISP  -  BAD_DISP; 

CM  I  =  TOTRWP  /  GOODDISP; 


Continued 
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EXHIBIT  B-lls  LOS  FREQUENCY  PROGRAM 


PROC  PRINT  OATA=TEMP3; 

VAR  TOT_DISP  BAD_OISP  DMISDAYS  TOT_RWP  CMI; 

ID  LOS; 

TITLE1  ' 

TITLE2  ' 

TITLE3  'LENGTH  OF  STAY  FREQUENCIES'; 

TITLE4  '(CHAMPUS  VERSION  8  DRGS  AND  OUTLIER  CRITERIA)'; 
FOOTNOTE  1  "SOURCE:  DEFENSE  MEDICAL  INFORMATION  SYSTEMS  (DMIS) 

&SYSDATE"; 


FOOTNOTE2  '  ' 
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EXHIBIT  B-12:  RWP  QC  PROGRAM  FOR  EACH  DRG 

//CSRTMR  JOB  (RAMS) , ' VRI ' ,CLASS=C,MSGCLASS=X,MSGLEVEL=( 1 , 1) , 

//  T IME= (10,0) ,NOTIFY=CSR 

//  EXEC  SAS606,W0RK=' 100,100' ,S0RT=10, REGION=4096K 

//BIOIN  DD  DSN=HAF. CON. VRI. TMR.SIDR. ARMY. CHAMPRWP. FY91 ,DISP=SHR 
//  DD  DSN=HAF. CON. VRI. TMR.SIDR. NAVY. CHAMPRWP. FY91,DISP=SHR, 

//  UNIT=AFF=BIOIN 

//  DD  DSN=HAF. CON. VRI. TMR.SIDR.USAF. CHAMPRWP. FY91 ,DISP=SHR, 

//  UNIT=AFF=BIOIN 

//WTIN  DD  DSN=HAF . CON . VRI . TMR . CHAMPUS . TRIMPTS . VERS8 . SDS , DI SP=SHR 
*********  PROGRAM  NAME:  HAF. CON. VRI .TMR. RWPDRGQC. PROG  *********; 
OPTIONS  PAGESIZE  =  45  NONUMBER  NODATE 
LINESIZE  =  175; 

OPTIONS  MISSING  =  'O'; 

PROC  FORMAT; 

VALUE  $ICAT 

111  II  ^  ll  |  il 
iipit  _  H  2 n 
ii  n  _  ii  j  ii 
n  4  ii  _  ii  |  ll  , 

PICTURE  PCTWO  LOW  -  <0  =  '0009.99%'  (PREFIX  =  '-') 

0  -  HIGH  =  '0009.99%'; 

DATA  TEMPI; 

INFILE  BIOIN; 

INPUT 


@14 

EFLAG 

SCHAR1. 

@204 

CROFLAG 

SCHARl . 

@392 

CMISID 

SCHAR4. 

@502 

DRG 

3. 

@538 

BASERWP 

9.4 

@547 

OUTRWP 

9.4 

@556 

OUTCAT 

SCHARl. 

@557 

DRGICAT 

SCHARl. 

TOTRWP  -  SUM(BASERWP.OUTRWP) ; 

ICAT  =  PUT  ( DRG I CAT , $  I CAT . ) ; 

IF  (CROFLAG  *  'E')  OR  ( (EFLAG  NE  '0')  AND  (EFLAG  NE  'V')) 
THEN  DELETE; 

PROC  SUMMARY  NWAY  DATA-TEMP1; 

CLASS  DRG  OUTCAT  ICAT; 

VAR  TOTRWP- 

OUTPUT  0UT*SUMMDRG1  N-DRG  DISP  SUM=DRG  RWPS; 


--  Continued  -- 
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EXHIBIT  B-12:  RWP  QC  PROGRAM  FOR  EACH  DRG 

DATA  INRWPS;  SET  SUMMDRG1 ; 

IF  (ICAT  EQ  '1')  AND  (OUTCAT  EQ  'O'); 

RENAME  DRG_RWPS  »  INRWPS 
DRG_DISP  =  INDISP; 

DROP  OUTCAT  ICAT; 


DATA  SSRWPS;  SET  SUMMDRG1 ; 

IF  (ICAT  EQ  '1')  AND  (OUTCAT  EQ  '1'); 
RENAME  DRGRWPS  =  SSRWPS 
DRGDISP  =  SSDISP; 

DROP  OUTCAT  ICAT; 


DATA  LSRWPS;  SET  SUMMDRG1 ; 

IF  (ICAT  EQ  '1')  AND  (OUTCAT  EQ  '2'); 
RENAME  DRGRWPS  =  LSRWPS 
DRGDISP  =  LSD ISP; 

DROP  OUTCAT  ICAT; 


DATA  TRRWP1 ;  SET  SUMMDRG1 ; 
IF  (ICAT  EQ  '2'); 


PROC  SUMMARY  NWAY  DATA=TRRWP1 ; 

CLASS  DRG; 

VAR  DRGRWPS  DRG_DISP; 

OUTPUT  OUT=TRRWPS  SUM=TRRWPS  TRDISP; 


DATA  SUMMDRG; 

MERGE  SSRWPS  INRWPS  LSRWPS  TRRWPS; 

BY  DRG; 

TOTDISP  =  SUM( INDISP, SSDISP, LSDISP, TRDISP); 
TOTRWPS  -  SUM(INRWPS, SSRWPS, LSRWPS, TRRWPS); 


PROC  SORT  DATA=SUMMDRG; 
BY  DRG; 


DATA  DRGBASE; 

MERGE  SUMMDRG( IN=INDRG)  WTIN.FY90; 

BY  DRG;  IF  INDRG; 

KEEP  DRG  DRGTITLE  INRWPS  INDISP  SSRWPS  SSDISP 

LSRWPS  LSDISP  TRRWPS  TRDISP  TOT_RWPS  TOT_DISP; 


--  Continued 


f 
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EXHIBIT  B- 12:  RWP  QC  PROGRAM  FOR  EACH  DRG 

PROC  SORT  DATA=DRGBASE; 

BY  DRG  DRGTITLE; 

PROC  SUMMARY  NWAY  DATA-DRGBASE; 

CLASS  DRG  DRGTITLE; 

VAR  INRWPS  INDISP  SSRWPS  SSDISP 

LSRWPS  LSDISP  TRRWPS  TRDISP  TOT_RWPS  TOTDISP; 

OUTPUT  OUT-TOTRESl  SUM-; 

PROC  SORT  DATA=TOTRESl ; 

BY  DESCENDING  TOT_RWPS; 

PROC  SUMMARY  NWAY  DATA-TOTRES1 ; 

VAR  TOT  RWPS- 

OUTPUT  OUT-TOTRES2  N=SUM_DISP  SUM=SUM_RWPS; 

DATA  TOTRES3 ;  SET  TOTRES1 ; 

DUMMY- 1; 

DATA  TOTRES4;  SET  TOTRES2 ; 

DUMMY- 1 ; 

DATA  OUTPUT; 

MERGE  TOTRES3  T0TRES4; 

BY  DUMMY; 

RWPPCT  -  TOTRWPS/SUMRWPS  *  100; 

PROC  SORT  DATA-OUT PUT; 

BY  DESCENDING  TOTRWPS; 

PROC  PRINT  DATA-OUTPUT; 

VAR  DRGTITLE  SSDISP  SSRWPS  INDISP  INRWPS  LSDISP  LSRWPS 
TRDISP  TRRWPS  TOT_DISP  TOT_RWPS  RWPPCT; 

ID  DRG; 

TITLE1  '  '; 

TITLE2  '  '; 

TITLE3  '  '; 

'ITLE4  ' FY91  TOTAL  ALL  SERVICES'; 

FITLE5  'SHORT-STAY,  INLIER,  LONG-STAY,  TRANSFER  AND  TOTAL'; 

TITLES  'DISPOSITIONS  AND  RWPS  SORTED  ON  TOTAL  RWPS  FOR  EACH  DRG'; 
TITLE7  '(CHAMPUS  VERSION  8  DRGS  AND  OUTLIER  CRITERIA)'; 

FOOTNOTE  "SOURCE:  DEFENSE  MEDICAL  INFORMATION  SYSTEMS  (DMIS) 

&SYSDATE" ; 

F00TN0TE2  '  '; 

FORMAT 

RWPPCT  PCTWO . 


I 


EXHIBIT  B-13:  RWP  QC  PROGRAM  FOR  EACH  MTF 


//CSRTMR  JOB  (RAMS) , ' VRI ' ,CLASS=C,HSGCLASS=X,MSGLEVEL=(1 , 1 ) , 

//  TIME=(10,0) ,NOTIFY=CSR 

//  EXEC  SAS606,W0RK=' 100, 100' ,S0RT=10,REGI0N=4096K 

//BIOIN  DO  DSN=HAF. CON. VRI .TMR. SIDR. ARMY. CHAMPRWP.FY91 ,DISP=SHR 

//  DD  DSN=HAF. CON. VRI. TMR.SIDR. NAVY. CHAMPRWP.FY91 ,DISP=SHR, 

//  UNIT=AFF=BIOIN 

//  DD  DSN=HAF . CON . VRI . TMR . S IDR . USAF . CHAMPRWP . FY91 , D I SP=SHR , 

//  UNIT=AFF=*BIOIN 

//WT IN  DD  DSN=HAF . CON . VRI . TMR . CHAMPUS . TRIMPTS . VERS8 . SDS , DISP=SHR 
*********  PROGRAM  NAME:  HAF. CON. VRI .TMR. RWPMTFQC. PROG  ********* 
OPTIONS  PAGESIZE  =  45  NONUMBER  NODATE 
LINESIZE  =  175; 

OPTIONS  MISSING  =  'O'; 

PROC  FORMAT; 

VALUE  SICAT 

II  1  II  _  II  ^  II 

ii  2  *i  _  h  2 " 
m  ^  i*  _  it  i  ii 
11  A  II  _  II  1  ii  . 


PICTURE  PCTWO  LOW  -  <0  =  '0009.99%'  (PREFIX  =  '-') 
0  -  HIGH  =  '0009.99%'; 


DATA  TEMPI; 
INFILE  BIOIN; 

INPUT 


@14 

EFLAG 

SCHARl. 

@204 

CROFLAG 

SCHAR1. 

@392 

DMISID 

SCHAR4. 

@401 

SERVICE 

SCHARl. 

@502 

DRG 

3. 

@538 

BASERWP 

9.4 

@547 

OUTRWP 

9.4 

@556 

OUTCAT 

SCHARl. 

@557 

DRG I CAT 

SCHARl . 

DISP-1; 

TOTRWP  *  SUM(BASERWP.OUTRWP); 

ICAT  =  PUT  (DRGICAT.SICAT.); 

IF  (CROFLAG  =■  'E')  OR  ( (EFLAG  NE  'D')  AND  (EFLAG  NE  'V')) 
THEN  OELEFt; 

IF  (DRG  EQ  469)  OR  (DRG  EO  4?0)  THEN  BADD I S P=D I SP ; 
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EXHIBIT  B-13:  RHP  QC  PROGRAM  FOR  EACH  MTF 

PROC  SUMMARY  NWAY  DATA-TEMP1; 

CLASS  DMISIO  OUTCAT  ICAT; 

VAR  TOTRWP  DISP  BADDISP; 

OUTPUT  OUT=SUMMDRGl  SUM=DRG_RWPS  DRG_DISP  BADDISP; 


DATA  INRWPS;  SET  SUMMDRG1 ; 

IF  (ICAT  EQ  '1')  AND  (OUTCAT  EQ  'O'); 
RENAME  DRGRWPS  =  INRWPS 
DRGDISP  =  INDISP 
BADDISP  =  INBDISP; 

DROP  OUTCAT  ICAT; 


DATA  SSRWPS;  SET  SUMMDRG1 ; 

IF  (ICAT  EQ  '1')  AND  (OUTCAT  EQ  '1'); 
RENAME  DRGRWPS  =  SSRWPS 
DRGDISP  =  SSDISP 
BADDISP  =  SSBDISP; 

DROP  OUTCAT  ICAT; 


DATA  LSRWPS ;  SET  SUMMDRG1; 

IF  (ICAT  EQ  '1')  AND  (OUTCAT  EQ  '2'); 
RENAME  DRGRWPS  -  LSRWPS 
DRGDISP  =  LSDISP 
BADDISP  =  LSBDISP; 

DROP  OUTCAT  ICAT; 


DATA  TRRWP1 ;  SET  SUMMDRG1 ; 
IF  (ICAT  EQ  '2'); 


PROC  SUMMARY  NWAY  DATA-TRRWP1; 

CLASS  DMISID; 

VAR  DRGRWPS  DRG_DISP  BADDISP; 

OUTPUT  OUT=TRRWPS  SUM=TRRWP$  TRDISP  TRBDISP; 


DATA  SUMMDRG ; 

MERGE  SSRWPS  INRWPS  LSRWPS  TRRWPS; 

BY  DMISID; 

TOTDISP  =  SUM( INDISP, SSDISP, LSDISP, TRDISP); 
BADDISP  =  SUM( INBDISP, SSBDISP, LSBDISP, TRBDISP) ; 
TOTRWPS  =  SUM(INRWFS, SSRWPS, LSRWPS, TRRWPS); 


--  Continued 
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EXHIBIT  B- 13 :  RWP  QC  PROGRAM  FOR  EACH  MTF 

PROr  SUMMARY  NWAY  DATA=SUMMDRG; 

CLASS  DM  I S I D ; 

VAR  INRWPS  INOISP  SSRWPS  SSDISP 

LSRWPS  LSDISP  TRRWPS  TRDISP  BAD_DISP  TOT_RWPS  TOT_DISP; 
uu l PUT  OUT-TOTRE31  SUM=; 


PROC  SORT  DATA-TOTRES1; 

BY  DESCENDING  TOT_RWPS; 

PROC  SUMMARY  NWAY  DATA-TOTRES1 ; 

VAR  TOT  RWPS* 

OUTPUT  OUT-TOTRES2  N*SUM_DISP  SUM=SUM_RWPS; 

DATA  TOTRES3;  SET  TOTRES1 ; 

DUMMY =1 ; 

DATA  TOTRES4;  SET  TOTRES2 ; 

DUMMY-1; 

DATA  OUTPUT; 

MERGE  TOTRES3  T0TRES4; 

BY  DUMMY; 

RWPPCT  -  TOT_RWPS/SUM_RWPS  *  100; 

PROC  SORT  DATA-OUT PUT ; 

BY  DESCENDING  TOT_RWPS; 


PROC  PRINT  DATA-OUTPUT; 

VAR  SSDISP  SSRWPS  INDISP  INRWPS  LSDISP  LSRWPS 

TRDISP  TRRWPS  BAD_DI$P  TOT_DISP  TOT_RWPS  RWPPCT; 

ID  DMISID; 

TITLE1  ' 

TITLE2  ' 

TITLE3  ' 

TITLE4  ' FY91  TOTAL  ALL  SERVICES'; 

TITLE5  'SHORT-STAY,  INLIER,  LONG-STAY,  TRANSFER  AND  TOTAL'; 
TITLE6  'DISPOSITIONS  AND  RWPS  SORTED  ON  TOTAL  RWPS  FOR  EACH  MTF' 
TITLE7  '(CHAMPUS  VERSION  8  DRGS  AND  OUTLIER  CRITERIA)'; 

FOOTNOTE  "SOURCE:  DEFENSE  MEDICAL  INFORMATION  SYSTEMS  (DMIS) 

&SYSDATE" ; 

F00TN0TE2  '  '; 

FORMAT 

RWPPCT  PCTWO. 
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EXHIBIT  B- 14 :  RWP  QC  PROGRAM  FOR  EACH  SERVICE 

//CSRTMR  JOB  (RAMS) , ' VRI ' ,CLASS=C,MSGCLASS=X,MSGLEVEL=(1 , 1 ) , 

//  T I ME= (10,0) ,NOTIFY=CSR 

//  EXEC  SAS606,W0RK=' 100, 100' ,S0RT=10,REGI0N=4096K 

//BIOIN  DO  DSN=HAF. CON. VRI. TMR.SIDR. ARMY. CHAMPRWP. FY91 ,DISP=SHR 
//  DO  DSN=HAF. CON. VRI. TMR.SIDR. NAVY. CHAMPRWP. FY91 ,DISP=SHR, 

//  UNIT=AFF=BIOIN 

//  DD  DSN=HAF. CON. VRI. TMR.SIDR. USAF. CHAMPRWP. FY91 ,DISP=SHR, 

//  UN IT=AFF=BIOIN 

//WT IN  DD  DSN=HAF . CON . VRI . TMR . CHAMPUS . TRIMPTS . VERS8 . SDS , DISP=SHR 
*********  PROGRAM  NAME:  HAF.CON. VRI . TMR. RWPSVCQC. PROG  *********; 

OPTIONS  PAGESIZE  =  45  NONUMBER  NODATE 
LINESIZE  =  175; 

OPTIONS  MISSING  =  'O' ; 

PROC  FORMAT; 

VALUE  SICAT 

ii  I  it  _  ii  j  ii 

H  2 "  _  m  2  m 
h^m  _  n  2  »» 

II  ^  II  _  II I II  , 

PICTURE  PCTWO  LOW  -  <0  =  '0009.99%'  (PREFIX  =  '-') 

0  -  HIGH  =  '0009.99%' ; 


DATA  TEMPI; 


INFILE  BIOIN; 

INPUT 

@14 

EFLAG 

SCHARl. 

@204 

CROFLAG 

SCHAR1. 

@392 

DMISID 

SCHAR4. 

@401 

SERVICE 

SCHARl. 

@502 

DRG 

3. 

@538 

BASERWP 

9.4 

@547 

OUTRWP 

9.4 

@556 

OUTCAT 

SCHARl. 

@557 

DRGICAT 

SCHARl. 

D I S  P= 1 ; 

TOTRWP  =  SUM(BASERWP.OUTRWP); 

ICAT  =  PUT  (DRGICAT, SICAT.); 

IF  (CROFLAG  =  'E')  OR  ((EFLAG  NE  'D')  AND  (EFLAG  NE  'V')) 
THEN  OELETE; 

IF  (DRG  EQ  469)  OR  (DRG  EQ  470)  THEN  BADDISP=DISP; 


--  Continued 
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EXHIBIT  B-14:  RHP  QC  PROGRAM  FOR  EACH  SERVICE 

PROC  SUMMARY  NWAY  DATA=TEMP1 ; 

CLASS  SERVICE  OUTCAT  ICAT; 

VAR  TOTRWP  DISP  BADDISP; 

OUTPUT  OUT=SUMMDRGl  SUM=DRG_RWPS  DRG_DISP  BADDISP; 


DATA  INRWPS;  SET  SUMMDRG1 ; 

IF  (ICAT  EQ  'I')  AND  (OUTCAT  EQ  'O'); 
RENAME  DRGRWPS  =  INRWPS 
DRG_DISP  =  INDISP 
BADDISP  =  IN8DISP; 

DROP  OUTCAT  ICAT; 


DATA  SSRWPS ;  SET  SUMMDRG1 ; 

IF  (ICAT  EQ  '1')  AND  (OUTCAT  EQ  '1'); 
RENAME  DRGRWPS  =  SSRWPS 
DRG  DISP  =  SSDTSP 
BADDISP  =  SSBDISP; 

DROP  OUTCAT  ICAT; 


DATA  LSRWPS;  SET  SUMMDRG1 ; 

IF  (ICAT  EQ  '1')  AND  (OUTCAT  EQ  '2'); 
RENAME  DRGRWPS  =  LSRWPS 
DRGDISP  =  LSDISP 
BADDISP  =  LSBDISP; 

DROP  OUTCAT  ICAT; 


DATA  TRRWP1 ;  SET  SUMMDRG1 ; 
IF  (ICAT  EQ  '2'); 


PROC  SUMMARY  NWAY  DATA-TRRWP1; 
fl ASS  SFRVTfP ■ 

VAR  DRG  RWPS  DRGJJISP  BADDISP; 

OUTPUT  OUT=TRRWPS  SUM=TRRWPS  TRDISP  TRBDISP; 


DATA  SUMMDRG ; 

MERGE  SSRWPS  INRWPS  LSRWPS  TRRWPS; 

BY  SERVICE- 

TOTDISP  -  SUM( INDISP, SSDISP, LSDISP, TRDISP); 
BADDISP  =  SUM(INBDISP, SSBDISP, LSBDISP, TRBDISP); 
TOTRWPS  =  SUM( INRWPS, SSRWPS, LSRWPS, TRRWPS); 


--  Continued 
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EXHIBIT  B-14:  RHP  QC  PROGRAM  FOR  EACH  SERVICE 

PRPr  SUMMARY  NWAY  DATA=SUMMORG; 

CLASS  SERVICE; 

VAR  INRWPS  INDISP  SSRWPS  SSDISP 

LSRWPS  LSDISP  TRRWPS  TRDISP  BADDISP  TOT_RWPS  TOTDISP; 
OUTPUT  OUT=TOTRESl  SUM=; 


PROC  SORT  DATA-TOTRES1; 

BY  DESCENDING  TOT_RWPS; 

PROC  SUMMARY  NWAY  DATA=TOTRESl ; 

VAR  TOT  RWPS' 

OUTPUT  OUT»TOTRES2  N=SUM_DISP  SUM=SUM_RWPS; 

DATA  TOTRES3 ;  SET  TOTRES1 ; 

DUMMY =1 ; 

DATA  TOTRES4 ;  SET  TOTRES2; 

DUMMY =1 ; 

DATA  OUTPUT; 

MERGE  TOTRES3  T0TRES4; 

BY  DUMMY; 

RWPPCT  -  TOT_RWPS/SUM_RWP$  *  100; 

PROC  SORT  DATA=OUTPUT ; 

BY  DESCENDING  TOT_RWPS; 


PROC  PRINT  DATA=OUTPUT ; 

VAR  SSDISP  SSRWPS  INDISP  INRWPS  LSDISP  LSRWPS 

TRDISP  TRRWPS  BADJHSP  TOT_DISP  TOT_RWPS  RWPPCT; 

ID  SERVICE; 

TITLE1  '  '; 

TITLE2  '  '; 

TITLE3  '  '; 

TITLE4  ' FY91  ALL  SERVICES'; 

TITLES  'SHORT-STAY,  INLIER,  LONG-STAY,  TRANSFER  AND  TOTAL'; 
TITLES  'DISPOSITIONS  AND  RWPS  SORTED  ON  TOTAL  RWPS'; 

TITLE7  '(CHAMPUS  VERSION  8  DRGS  AND  OUTLIER  CRITERIA)'; 
FOOTNOTE  "SOURCE:  DEFENSE  MEDICAL  INFORMATION  SYSTEMS  (DMIS) 

&SYSDATE" ; 

F00YN0TE2  '  '; 

FORMAT 

RWPPCT  PCTWO . 
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APPENDIX  C 

>e  F>91  Army  RWP  attachment  job  log.  and  the  FY91  Army  RWP  GC  ; 
log  are  presented  in  exhibits  C-l  and  C-2.  respectively.  Exhibits  C - 
through  C  - 10  cor.ta’n  a  samp’e  page  of  output  generated  from  the  tr-m 
pcirt  QC  pronryn,  bedday  CC  progr  m,  cross  tabulation  QC  program,  len 
cf -stay  percent  1  e  program,  length  -of -stay  frequency  program,  RWP  GC 
program  fcr  each  DRG.  RWP  CC  program  for  each  mtf,  and  RWP  QC  program 
*  0  fs  i  “  ^  •  r  v  i  c  *?  . 


16.38.48  J0B02287  1EF196I  RX20PC00  -  USER  CSR  LOGGED  ON  VIA  STC 

16  38.48  J0B02287  RX2DPC00  -  USER  CSR  LOGGtD  ON  VIA  STC 
16.38.48  J0B02287  IEF196I  RX10PC99  -  USER  CSR  LOGGED  OFF  VIA  STC 
16.38.48  JOB02287  RX1DPC99  -  USER  CSR  LOGGED  OFF  VIA  STC 
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401  OUTCAT*'l ’ ; 
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439  WHEN  (CHLOCUT  L£  BBDAYS  LE  CHHICUTA)  00; 

440  RWP=CHHPWT ; 

441  TR1 1RWP=RWP; 

442  8ASERWP*RWP; 
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475  END;  /*  SELECT  (DRGICAT) 

476  END;  /*  OTHERWISE  */ 
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CLASS  OUTCAT; 
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EXHIBIT  C-6:  SAMPLE  OUTPUT  FROM  LOS  PERCENTILE  QC  PROGRAM 
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EXHIBIT  C-7 :  OUTPUT  FROM  LOS  FREQUENCY  QC  PROGRAM 

FY91  TOTAL  ALL  SERVICES 
LENGTH  OF  STAY  FREQUENCIES 
(CHAMPUS  VERSION  8  ORGS  AND  OUTLIER  CRITERIA) 
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EXHIBIT  C- 10 :  SAMPLE  OUTPUT  FROM  KWP  QC  PROGRAM  FOR  EACH  SERVICE 
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